Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

...
} else {
  print "INFO: $string not found in file $filename.\n";
}

Select or download this

[foo@bar dev]$ perl -w nam.pl nam.pl print
INFO: print found in file nam.pl, next line is:
  print $nextLine;
[foo@bar dev]$ perl -w nam.pl nam.pl whoosat
INFO: whoosat not found in file nam.pl.