Hallo,ich habe folgendes Problem mit dem Modul File::Copy
in meinem Skript copiere ich Dateien von einem Verzeichnis in einem anderen.
Es sind UNC Pfade die in einer Datei stehen. Es schaut so aus:
open(FILE, "<liste.txt") || die "Datei nicht gefunden $!\n";
while (<FILE>){
$zeile=$_;
my($path, $filename) = $zeile =~ m/^(\\\\.+\\)(.+?)$/;
$path =~ s/\\+$//g;
$path =~ s/^\\+//g;
chdir ($lpath);
mkpath ($path);
copy("$zeile","$path") or die "Copy failed: $!";
}
close FILE;
Ich bekomme ständig die Meldung "Unsuccessful stat on filename containing newline at C:/Perl/lib/File/Copy.pm lin
e 92, <FILE> line 1.
Copy failed: No such file or directory at C:\Dokumente und Einstellungen\testuser\Desktop\Test\test.pl line 41, <FILE> line 1."
Line 41 ist der copy Befehl.
Wenn ich einen der UNC Pfade als $zeile declariere my $zeile="\\\\server\\share\\ordner\\file"
dann läuft der copy Befehl ohne Fehler. Das ablesen aber von der txt Datei bringt den Fehler. Ich hoffe ich konnte es verständig genug darstellen.
Kann jemand helfen? Was mach ich falsch beim syntax?
Datum: 22.01.2009-16:24
copy
