home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 February / PCWorld_2002-02_cd.bin / Software / TemaCD / proxomitron / prx4fcz.exe / Help / Replace.bat < prev    next >
DOS Batch File  |  2001-08-18  |  691b  |  39 lines
  1. @rem = '--*-Perl-*--';
  2. @rem = '
  3. @echo off
  4. perl.exe -w Replace.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
  5. goto endofperl
  6. @rem ';
  7.  
  8. ##
  9. ## Very simple PERL script to do do search & replace in all HTML documents
  10. ##
  11.  
  12. my($name);
  13.  
  14. while($name=<*.html>){
  15.    HTML_Replace($name);
  16.    
  17. }
  18.  
  19. sub HTML_Replace
  20. {
  21.    my($name)=$_[0];
  22.    my($txt)="";
  23.    my($l);
  24.  
  25.    open(FIN,"<$name") || die("File Not Found\n");
  26.    while(<FIN>){ $txt .= $_; };
  27.    close(FIN);
  28.    
  29.    if($txt =~ s|Send Me Your Filters\.html|Send In Your Filters.html|g){
  30.      open(FOUT,">$name") || die("Can't make new file\n");
  31.      print FOUT $txt;
  32.      close(FOUT);
  33.  
  34.      print "$name\n";
  35.    }
  36. }
  37.  
  38. __END__
  39. :endofperl