perl copy command

aueddonline

This is the code I have which is currently not working, i'm getting 'File cannot be copied. at copy line 8.' which is the last line of code.

use File::Copy;

$file = "C:\Users\xps\Documents\test.";
$newfile = "C:\Users\xps\Documents\test2.";

copy ($file, $newfile) or die "File cannot be copied.";

dynamik

Try changing the last line to:

copy ($file, $newfile) or die "File cannot be copied: $!";

The $! will spit out the actual error message and may help you identify the problem. It might be a permission issue or something like that. I don't know perl very well; sorry I can't be of more assistance.