nicht angemeldet
Hallo
iregendwie klaptt das mit dem kopieren von Dateien nicht.. (Win2000 und Cygwin)
use File::Copy;
use strict;
open(ART,'art.txt');
open(ART,'art.txt') || die "Kann art.txt nicht öffnen, weil $!";
@art = <ART>;
unnötig!
foreach $artikel (@art){
while(<ART>)
chomp($artikel);
$file1 = "F:/Site Images/Products/".$artikel."b.jpg";
$file2 = "F:/Produkt Bilder/".$artikel."b.jpg";
copy($file1,$file2);
Bist du sicher, das es die Verzeichnisse gibt?
}
Mache ich irgendwas falsch???
Das Programm macht nichts... es gibt keine Fehlermeldung aus und kopiert auch nix
Der Rückgabewert von Copy ist also Null. Innerhalb des Verzeichnisses
klappts.
Aus der Doku von File::Copy:
"All functions return 1 on success, 0 on failure. $! will be set if an error was encountered."
Dann geb dir mal $! aus, vielleicht hilft dir das ja weiter.
Struppi.