Performance Test
Performance Test
- These programs accomplish the same task
- Ignore the patterns listed, and
- Print those records that don’t have these items
# acctfltr.awk
/00JWO/ { next }
/ADAMS/ { next }
...
...
/ZERDE/ { next }
#!/usr/local/bin/perl
# set output field & record separator
$, = ' '; $\ = "\n";
line: while (<>) {
chop; # strip record separator
if (/00JWO/) { next line; }
if (/ADAMS/) { next line; }
...
...
if (/ZERDE/) { next line; }
print $_;
}