[Omaha.pm] find "000" in position 70-72 in text files
Jay Hannah
jhannah at omnihotels.com
Mon Apr 9 11:34:00 PDT 2007
Another Perl quicky...
j
my @files = glob "*dly";
foreach my $file (@files) {
open (IN, $file);
while (<IN>) {
if (/^.{69}000/) {
print "$file: $_";
}
}
close IN;
}
More information about the Omaha-pm
mailing list