[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Omaha.pm] and not and not and not and not...


On Sep 28, 2006, at 1:05 PM, Jay Hannah wrote:


if ((not $row[0]  =~ /RMCHG/) and (not $row[0]  =~ /RMCHRG/)
   and (not $row[0]  =~ /REUN/)) {

Solution:

if ($row[0] !~ /^(RMCHG|RMCHRG|REUN|VRMCH)$/) {


Or:

my @skips = qw( RMCHG RMCHRG REUN VMRCH );
my %skips = map {($_,1)} @skips;

if ( not exists $skips{$row[0] ) {...


--
Andy Lester => andy@petdance.com => www.petdance.com => AIM:petdance