Re^5: Ignoring lines in flat text file

I guess I understood a little backwards earlier.

my %tollfree = map { $_ => 1 } 800, 866, 877, 888;

if (  $line =~ m/^2/
   || !$tollfree{ substr($line, 14, 3) }
   )
{
   print OUTPUT "$line\n";
} else {
   ...
}
[download]

Comment on Re^5: Ignoring lines in flat text file Download Code

Replies are listed 'Best First'.
A reply falls below the community's threshold of quality. You may see it by logging in.