Help for this page

Select Code to Download


  1. or download this
    <!-- inserted banner -->
<TABLE>
...
blah
</TABLE>
<!-- end of inserted banner -->
  2. or download this
    use strict;
use File::Find;
...
   },
   $ARGV[0]
);
  3. or download this
    perl -MFile::Find -pi.bak -e "BEGIN {find sub {-f && push @ARGV, $File
+::Find::name}, \".\"} 
if (/inserted banner/i) {while (<>) {s/.*// and last if /end of insert
+ed banner/i;}}"