#!C:\Perl\bin\perl.exe use strict; use warnings; use Diagnostics; use File::Copy; use Cwd 'chdir'; my $source = "d:/Perl/Daily" unless $source; my $dest = "d:/Perl/Daily" unless $dest; chdir "$source" or die "Dying - can't cd to $source: $!\n"; $date = "1104"; system("md $date"); copy("AddressDevCHUBldgProj.csv", "$source/1031/");
In reply to Files copying from source to dest by Ma
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |