[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