viktorijakup
New User
Sep 2, 2008, 11:17 PM
Post #1 of 1
(1176 views)
|
|
How to sent file !?
|
Can't Post
|
|
Hello !!!
My directory D:\conv\ESSD\YJCIS\YJCIS14183\bbb.doc
I must send to X:\sgml_db\ESSD\YJCIS\YJCIS14183\
directory and rename bbb.doc to MMC1.doc.
If X:\sgml_db\...\....\YJCIS14183\ don't exist, i must create it.
"X:\sgml_db\" constant directory.
My script must choose path itself !
What I must add to this script !!!
use strict;
use warnings;
use File::Copy;
use File::Path;
my $sDest = 'X:/whatever';
mkpath $sDest;
copy('D:/whatever/bbb.doc', qq{$sDest/MMC1.doc});
|
MAIN
SEARCH
WHO'S 
LOG 