Load array in Perl then check against it

In the database is id, reason, action.

In this script I am cycling through a set of records and for each record I check to see what is in reason (which is why there is the if statements if ($reason =~ /MAILBOX FULL/i) )

Instead of having MAILBOX FULL hard coded, it will be in the database that is queried and dumped into an array containing other entries that were once hard coded.

$sql = "SELECT * FROM bouncerules";
$rules = $dbh->selectall_arrayref($sql) or die $DBI::errstr;

my $action=undef;
foreach (@{$rules}) {
    $action=$_->[2],last if $reason =~ /$_->[1]/;
}

print "Action=$action\n";

Or you could let the database find the record you want...

$sql = "SELECT * FROM bouncerules WHERE action=?";
$sth = $dbh->prepare($sql) or die $DBI::errstr;

$sth->execute($reason);
my ($db_id, $db_reason, $db_action)=$sth->fetchrow_array();
print "Database:\n  id=$db_id\n  reason=$db_reason\n  action=$db_action\n";

My Perl is horribly rusty as I haven't used it in a good 4-6 years now. However, it appears this is one the one I'm looking for:

my $action=undef;
foreach (@{$rules}) {
    $action=$_->[2],last if $reason =~ /$_->[1]/;
}

print "Action=$action\n";

However, action is either a 1 or a 2 in the database. If it's action = 1 we insert it into table A, if it's action 2 we insert it into table B.

So if $reason finds a rule that action is 1 we insert to table A. If we get through the entire array without a match we need to insert into table C.

I appreciate your patience and help and have upped the point value.

my $action=undef;
foreach (@{$rules}) {
    $action=$_->[2],last if $reason =~ /$_->[1]/;
}
$action=3 if !defined($action);   #set $action to 3 if $reason isn't found in the database

print "Action=$action\n";

my $action=undef;
foreach (@{$rules}) {
    $action=$_->[2],last if $reason =~ /$_->[1]/;
    //if action ==1 sql here if action ==1?
}
$action=3 if !defined($action);

my $action=undef;
foreach (@{$rules}) {
    $action=$_->[2],last if $reason =~ /$_->[1]/;
    #here:
    #    $action will be undef until the reason is found
    #    This won't be executed once reason is found
}
$action=3 if !defined($action);

#Put code here that uses action:
if($action==1){  #do something }
elsif($action==2) {#do something }
elsif($action==3) {#do something }

Ok so this should work:

$sql = "SELECT * FROM bouncerules";
$rules = $dbh->Query($sql) or die $Mysql::db_errstr;

my $action=undef;
foreach (@{$rules}) {
  $action=$_->[2],last if $reason =~ /$_->[1]/;
}
$action=3 if !defined($action);

if($action==1){
  $b = "insert into bounce values ('','$email','$date','$std_reason','$reason','$smtp_code','$diag','$action')";
  $stb = $dbh->Query($b) or die $Mysql::db_errstr; }

elsif($action==2) {
$b = "insert into bounce2 values ('','$email','$date','$std_reason','$reason','$smtp_code','$diag','$action')";
$stb = $dbh->Query($b) or die $Mysql::db_errstr; }

elsif($action==3) {
$b = "insert into bounce3 values ('','$email','$date','$std_reason','$reason','$smtp_code','$diag','$action')";
$stb = $dbh->Query($b) or die $Mysql::db_errstr; }

Adam314, one final question if you're still monitoring this. In here we set the action variable:

my $action=undef;
foreach (@{$rules}) {
  $action=$_->[2],last if $reason =~ /$_->[1]/;
}

Is it possible to also get the reason value for inserting into the database?