Do you know Perl !!!?

Question

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.

Do you know script...!!!?

Answer 1

use strict;

use warnings;

use File::Copy;

my $sDest = 'X:/whatever';

mkpath $sDest;

copy('D:/whatever/bbb.doc', qq{$sDest/MMC1.doc});

__END__