Datei ändern! - #101257 (Allgemeines zu Perl)

GwenDragon

2007-10-24 11:42

User since
2005-01-17
14748 Artikel
Admin1

Ich glaube, du meinst das so:

Code (perl): (dl )

if (opendir(DIR,"test") ) {
  while($datei = readdir(DIR)) { 
    if ( open(INPUT,"+<", "test/$datei") ) { # Datei um Lesen und Schreiben öffnen
      print "$datei\n";
      undef $/;
    
      $_ = <INPUT>; # erste Zeile lesen
    
      $_ =~ s/<html><head>/ <html><head>/; # Ersetzen
    
      seek(INPUT, 0, 0) or die "Fehler: $!"; # An Anfang der Datei gehen
    
      print INPUT $_ or die "Fehler: $!"; # Inhalt zurück schreiben

      close (INPUT)  or die "Fehler: $!"; # Datei schließen
    }
    else {
      die "Fehler: $!"; # Problem beim Öffnen der Datei
    }
  }
  closedir(DIR) or die $!; # Problem beim Schließen des Verzeichnisses
}

Außerdem solltest du auf fehlgeschlagene Dateioperationen prüfen (siehe mein die $!).
Und brav use strict;
und use warnings; verwenden. ;)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten