in reply to Re: Difficulties in copying directories from one network drive to another.
in thread Difficulties in copying directories from one network drive to another.
sub copyFile { my $source=shift(@_); my $dest=shift(@_); my $moo=1; open(FA,$source); open(F,">$dest"); binmode(F); binmode(FA); while(($moo=read(FA,$buff,4096))>0){ print F $buff; } close(FA);close(F); }
|
|---|