Langen Code auf vielen Seiten automatisch ersetzen

[rainerh]

Die Dokumentation zu sed lesen und ein entsprechendes Script zusammenbasteln, natürlich.

Perl dürfte einfacher sein, weil man die ganze Datei in einen String einlesen kann.

  
print STDOUT "$0: Meldungstext\n";  
while (<*.htm>) {  
  open(HTM, "+<$_") or die "Kann $_ nicht oeffnen: $!\n";  
  $input="";  
  while (<HTM>) {  
      $input .= $_;  
  }  
# jetzt ist die ganze Datei in $input (incl. Zeilenendezeichen)  
  
# Test, ob die Datei bereits behandelt wurde  
  unless( $input =~ /Suchmuster-fuer-so-siehts-aus-wenns-schon-ersetzt-ist/ ) {  
    $input =~ s/suchmuster/ersetzen/ms;  
  }  
# und wieder in die selbe Datei schreiben  
  seek(HTM,0,0);  
  print HTM "$input";  
  close HTM;  
}  
print STDOUT "$0 wurde beendet.\n";