Programmieren mit Perl

FilenCopy

use File::Copy;

copy("/tmp/fileA", "/tmp/fileA.orig")    or die "copy fehlgeschlagen: $!";
copy("/etc/motd", *STDOUT)               or die "copy fehlgeschlagen: $!";
move("/tmp/fileA", "/tmp/fileB")         or die "move fehlgeschlagen: $!";

use File::Copy cjw/cp mv/;               # Normale Unix-Namen verwenden.
cp "/tmp/fileA", "/tmp/fileA.orig"       or die "copy fehlgeschlagen: $!";
mv "/tmp/fileA", "/tmp/fileB"            or die "move fehlgeschlagen: $!";

Das File::Copy-Modul exportiert die beiden Funktionen copy und move. Diese kopieren ihr erstes Argument an das zweite (bzw. benennen es um), ähnlich wie die Unix-Befehle cp(1)und mv(1) (Diese Namen können Sie auch verwenden, wenn Sie sie explizit importieren.) Die copy-Funktion akzeptiert auch Dateihandies. Die Funktionen liefern wahr ...