CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Need a Custom or Prewritten Perl Program?: I need a program that...:
How to sent file !?

 



viktorijakup
New User

Sep 2, 2008, 11:17 PM

Post #1 of 1 (1663 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});

 
 


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives