Hallo zusammen,ich bin eine absolute Neueinsteigerin in Sachen Perl.
Nach einigen "Hallo Welt" - Expertimenten wollte ich jetzt eine Skript scheiben, das 2 Dateien überprüft. Wenn diese nicht gleich sind soll Datei 1 in Datei 2 geschrieben werden.
Das ist mein Quellcode:
#!/usr/bin/perl -w
open (DATEI1, "<test1.txt") or die "Datei kann nicht geladen werden\n";
flock (DATEI1, 2);
@datei1 = <DATEI1>;
close DATEI1;
open (DATEI2, "<test2.txt") or die "Datei kann nicht geladen werden\n";
flock (DATEI2, 2);
@datei2 = <DATEI2>;
close DATEI2;
if (@datei1 ne @datei2) {
open (FILE, ">test2.txt");
flock (FILE, 2);
print FILE "@datei1";
close FILE;
}
Inhalt Datei 1:
test
test
Inhalt Datei 2:
test2
test2
Kann mir jemand helfen?
Datum: 30.08.2006-13:39
Was habe ich falsch gemacht?
