Friday, August 5, 2011

copy and move in perl



use File::Copy;
copy("file1","file2") or die "Copy failed: $!";
copy("Copy.pm",\*STDOUT);
move("/dev1/fileA","/dev2/fileB");




This was refered from http://perldoc.perl.org/File/Copy.html