Datei einlesen -> bearbeiten -> speichern - #114065 (Allgemeines zu Perl)

tsy

2008-08-29 12:49

User since
2008-03-17
54 Artikel
BenutzerIn
[default_avatar]

Hallo!
Ich habe gerade ein Problem mit dem Schreiben in Datein. Folgendes Skript

Code (perl): (dl )

use File::Find;
use strict;
use warnings;

my $dir = "path";

find(\&process, $dir);

sub process {
        my $file = $_;
        my @newFile;

        open (FILE, "<$file");
        while (my $line = <FILE>){
                if ( $line =~ s/(print)\s*("\w+")/\$lang->$1($2, \$actUser->{'lang'})/g ){
                        print "\nFound: $1, $2\n";
                }
                push @newFile, $line;
        }
        close FILE;
        open (FILE, ">$file");
        foreach my $line (@newFile){
                #print FILE $line;
                print $line;
        }
        close FILE;
}

Soll alle Dateien durchsuchen und wenn ein print gefunden wurde dieses ersetzen. Klappt soweit auch ganz gut, nur das Schreiben misslingt. Wenn ich eine Datei öffne, nachdem das Skript durchgelaufen ist, dann sind alle Zeilen ersetzt, aber danach wird die gesamte Datei noch mal unvollständig darunter geschrieben; am Anfang jeder Zeile fehlen ein paar Buchstaben.
Ausserdem bekomme ich die Warnung

Code: (dl )

readline() on closed filehandle FILE at  line 25.

also in der Zeile nach open FILE ..., die ich nicht verstehe. Kann mir jemand weiter helfen?

Gruß, tsy