[Omaha.pm] Find all files containing '</td>\n</tr>\n</table>'

Jay Hannah jhannah at omnihotels.com
Wed Aug 24 12:00:44 PDT 2005


$ cat j.pl
while (<>) {
  chomp;
  local $/ = undef;
  open IN, $_;
  $file = <IN>;
  print "$_\n" if ($file =~ m#</td>\n</tr>\n</table>#);
}

$ find ./ | perl j.pl
./Web/lib/Waitlist/header.entry.html
./Web/lib/Waitlist/header.report.html
./Web/lib/Perseus/debug.AvailResp
./Web/lib/Perseus/Reports/header.Reports.html
./Web/lib/Procurement/header.admin.html
./Web/lib/column_title.html
./Web/lib/Rewards/header.billing.html
./Web/lib/Surveys/header.admin.html
./Web/lib/SessionControl/record.travelagent.html


Cheers,

j



More information about the Omaha-pm mailing list