Reply-to: "Perl Mongers of Omaha, Nebraska USA" <omaha-pm@pm.org>
Thread-index: AcbAvViCdI9CgXqIRIeakRVKDP7ZtQ==
Thread-topic: am I drunk.... code reduction?
Am I drunk? Doesn't
if ((not $row[0] =~ /RMCHG/) and (not $row[0] =~ /RMCHRG/) and (not
$row[0] =~ /REUN/)) {
if ($row[0] eq 'RMADJ') {
# Do something...
}
}
Reduce to
if ($row[0] eq 'RMADJ') {
# Do something...
}
?
j