Re: Transfer Folder Using Net::FTP

Replies are listed 'Best First'.
Re^2: Transfer Folder Using Net::FTP by kicap (Novice) on Oct 15, 2004 at 02:51 UTC
actually i have write some script that transfer a single file using Net::FTP...And its work...below i quote my script... > $ftp_server = "*...*"; > $login = "roime"; > $password = "roimepuniran"; > $upload_to_dir = "/flow/flowBig"; > $input_file = "/flow/netflow"; > $new_file_name = "lyidia.pl"; > > ================================================================= > > my $ftp; > print "Connect From : ", $addr->peerhost(); > #Display Message > > $ftp = Net::FTP->new($ftp_server, Debug => 1) or warn +"Cannot connect to the ftp host"; > > $ftp->login($login,$password)or die $ftp->message; > $ftp->pwd or die $ftp->message; > $ftp->cwd($upload_to_dir) or die $ftp->me +ssage; > $ftp->binary(); > > $ftp->put($input_file, $new_file_name) or warn "...Not upload.."; [download] Do u have any idea, how can i distribute tis script, by that way i can transfer a folder taht contains files, instead of a single file transfered...	[reply] [d/l]
Re^3: Transfer Folder Using Net::FTP by claree0 (Hermit) on Oct 15, 2004 at 12:54 UTC
If you want to do it the easy way, then you could useNet::FTP::Recursive. However, if you want to improve your perl skills, then I'd suggest breaking down the process into steps: * Create the target folder on the FTP server * Find the filenames for the current directory that need to be transferred. I'm assuming that you're using Windows so `dir /b` would be one way of getting a list of filenames. * Transfer each of those files to the target server. If your folder contains sub-folders then you'll need to use recursion.	[reply] [d/l]