cclark238 has asked for the wisdom of the Perl Monks concerning the following question:
I'm trying to write an FTP script that will use a Mput to locate text files on a source machine and load onto a destination server. I would also need a log file wriiten in the script. Tried below but not working
#!/usr/bin/perl use Net::FTP; use Archive::Extract; use File::Listing qw(parse_dir); $host = ''; $path = ''; $ftp = Net::FTP->new($host, Timeout => 1800) or die "Cannot cont +act $host: $!"; $ftp->login('username', 'password') or die "Cannot login ($host) +:" . $ftp->message; $ftp->cwd($path) or die "Cannot change directory ($host):" . $ft +p->message; @Files = $ftp->ls('-lR'); #$ftp->binary(); $ftp->ascii(); foreach $file (parse_dir(\@Files)) { my($name, $type, $size, $mtime, $mode) = @$file; print "Retrieving $name \n"; print "File type $type \n"; if ($type != 'f') { print "File name: $name"; print "File type: $type"; } if ($type eq 'f') { $ftp->hash($name,102400); $ftp->mput($name, '/data/UC4/outbound/CustomerStatem +ent/*.txt') or warn "Could not get $name, skipped: $!"; EXTRACT("$name '/data/UC4/outbound/CustomerStatement +/*.txt'); } } $ftp->quit or die "Could not close the connection cleanly: $!"; sub EXTRACT { my $ae = Archive::Extract->new( archive => @_ ); my $ok = $ae->extract( to => 'LOCATION' ); } exit;
20080729 Janitored by Corion: Added formatting, code tags, as per Writeup Formatting Tips
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: FTP Script
by pc88mxer (Vicar) on Jul 28, 2008 at 21:19 UTC | |
Re: FTP Script
by jrsimmon (Hermit) on Jul 28, 2008 at 21:56 UTC |
Back to
Seekers of Perl Wisdom