Hi I am trying to copy files from mapped drive (J:\) to a different machine.
The perl script is going to run on my machine to copy files from one place to another.
File transfer works when i copy files from mapped drive to my machine but when I tried to copy over to different machine throws me an error:
Please help me recrify
Here is my perl script as follows:
The perl script is going to run on my machine to copy files from one place to another.
File transfer works when i copy files from mapped drive to my machine but when I tried to copy over to different machine throws me an error:
Please help me recrify
Here is my perl script as follows:
Code:
use File::Copy;
$dir="\\\\SOURCE\\PROD_LOGFILES\\LogFiles\\";
opendir(DIR, $dir) or die "can not open directory $dir: $! \n";
@files=readdir(DIR);
closedir DIR;
foreach $file (@files) {
if (-f "$dir$file") {
$moveloc="\\\\TARGET\\D\$\\FMP Project\\Production Log Files\\";
$old = "$dir$file";
$new = "$moveloc";
#copy($old, $new) or die "Copy Failed: $!"; #this line is working for my machine
move($old, $new) or die "Copy Failed: $!";
}
}
Comment