Dateien verschieben

[Frank]

Hallo zusammen,
habe in Perl ein Problem Dateien eines Arrays auszulesen und Sie dann zu verschieben.

Ich benutze dazu die Funktion RENAME.

Ich kann in meinem Skript nicht erkennen warum es nicht funktioniert.
Ich will lediglich zu Testzwecken ZIP.Dateien eines Ordners in einen anderen verschieben.

Vielleicht kann jemand einen Fehler erkennen.
Danke schonmal.
Frank

#Erstellen eines Array mit den gezippten Dateien
@dir = dir $savedir\\\*.zip /b /a-d;
$anzahl = @dir;
print "$anzahl Dateien wurden zum Verschieben vorbereitet \n";

@dir = dir $savedir\\\*.zip /b /a-d;

foreach $file (@dir){
$quelle = d:\Test\$file
$target = d:\Target\MOVE_$file

rename $quelle, $target

}

[Struppi]

habe in Perl ein Problem Dateien eines Arrays auszulesen und Sie dann zu verschieben.

Ich benutze dazu die Funktion RENAME.

Das ist theoretisch richtig, aber du kannst nicht durch einfaches ändern des Filenamen die Datei verschieben.

Es gibt dazu ein einfaches Standardmodul: File::Copy

Struppi.

[Frank]

OK, vielen Dank. Ich habe die Lösung.
Immer wieder gute Beiträge in diesem Forum. Super.

[Benne]

Hallo

Ich benutze dazu die Funktion RENAME.
...
rename $quelle, $target

sehr lustig finde ich hier die Verwendung vom => Operator, der eigentlich nichts anderes als das , darstellt:

  
rename $old => $new;  

Gruß,
Benne