And unrelated to your DBI question, but you might could use a data structure of regex objects rather than that frelling huge if monstrosity.
use Tie::RefHash; tie my %m, "Tie::RefHash"; %m = ( qr/abc/ => "ABC", qr/def/ => "XYZ", ); $str = "def"; for my $r ( keys %m ) { if( $str =~ $r ) { $str = $m{$r}; last; } } print $str, "\n"
--
We're looking for people in ATL
In reply to Re: Updating database question
by Fletch
in thread Updating database question
by curtisb
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |