How to sent file ?!

[viktorijakup]

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});
 

[numberwhun]

So, what exactly is happening when you run this? Is it doing anything that you expect? You were quite vague in the description of your issue, but I will do my best here.

Here are a couple of suggestions:

1. For the mkpath line, use the following:

mkpath ( $sDest, {verbose => 1} );
 

This will print out to the screen telling you it created the directory. If it doesn't , then you have a problem.

2. I would modify your copy statement to be the following:

copy('D:/whatever/bbb.doc', qq{$sDest/MMC1.doc}) or die "Could not copy:  $!";
 

That will output the error, if there is one, given during the copy step.

3. Please use code tags around any code you place in the forums. As you can see, I have done so for each example here and also corrected your original posting.

Regards,

Jeff

[KevinADC]

He has this question posted on several perl forums.

[viktorijakup]

Hello !!!

Thank you for correction of my script. This script runs perfectly,
but in this script i must direct path. I would like run script in all
directoties and don't rewrite path in script every time.

I have a lof of files in different directories:
Examples:
D:\conv\ESSD\YJCIS\YJCIS14136\TOC.doc;
D:\conv\ESNL\APNUM\APNUM2185\vvvv.pdf;
D:\conv\ESME\BULSCI\BULSCI2303\rrr.tex...
.........and so on....
Constant path is "D:\conv", doesn't change
%%%%
For example:
I must send from
D:\conv\ESSD\YJCIS\YJCIS14136\

selective "TOC.doc" file to

X:\sgml_db\ESSD\YJCIS\YJCIS14136\

Constant path is "X:\sgml_db", doesn't change, the same "\ESSD\YJCIS\YJCIS14136\" catalogue name.

and rename "TOC.doc" to "MMC1.doc";
if i have "vvvv.pdf" I rename "MMC1.pdf" and so on.....

My script must undestand "paths", I want sent file from
directory to the same directory, only change "D:\conv\" to "X:\sgml_db\" path.

What i must add to this script !!???

use strict;
use warnings;
use File::Copy;
use File::Path;
 
my $sDest = 'X:/sgml_db/ESSD/YJCIS/YJCIS14136/';
mkpath ($sDest, {verbose =>1});
copy('D:/conv/ESSD/YJCIS/YJCIS14136/bbb.doc', qq{$sDest/MMC1.doc}) or die "Could not copy: $!";
 

Thank you !

Viki