Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

FTP Script

by cclark238 (Initiate)
on Jul 28, 2008 at 21:16 UTC ( [id://700654]=perlquestion: print w/replies, xml ) Need Help??

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
    This is in the libnet FAQ: (link):

    Why does Net::FTP not implement mput and mget methods

    The quick answer is because they are easy to implement yourself. The long answer is that to write these in such a way that multiple platforms are supported correctly would just require too much code. Below are some examples how you can implement these yourself.

    sub mput { my($ftp,$pattern) = @_; foreach my $file (glob($pattern)) { + $ftp->put($file) or warn $ftp->message; } } sub mget { my($ftp,$pattern) = @_; foreach my $file ($ftp->ls($pattern +)) { $ftp->get($file) or warn $ftp->message; } }
Re: FTP Script
by jrsimmon (Hermit) on Jul 28, 2008 at 21:56 UTC
    Oh God! My eyes....
    How (Not) To Ask A Question
    #!/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 contact $h +ost: $!"; $ftp->login('username', 'password') or die "Cannot login ($host):" . $ +ftp->message; $ftp->cwd($path) or die "Cannot change directory ($host):" . $ftp->mes +sage; @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/CustomerStatement/*.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;
    The first thing that is immediately obvious on actually being able to read the post is that you're missing a double-quote on line 24. Is this the exact script that you're running?
    Updated
    After looking at your script some more, I think you're wanting to do something more like this.
    #!/usr/bin/perl use strict; use warnings; use Net::FTP; my $srcHost = ''; my $dstHost = ''; my $path = ''; my @getFiles = (); my @putFiles = (); #connect to your source machine first my $ftp = Net::FTP->new($srcHost, Timeout => 1800) or die "Cannot cont +act $srcHost: $!"; $ftp->login('username', 'password') or die "Cannot login ($srcHost):" +. $ftp->message; $ftp->cwd($path) or die "Cannot change directory ($srcHost):" . $ftp-> +message; #then get the list of all files @getFiles = $ftp->ls('-lR'); foreach my $file (@getFiles){ #do whatever it is you're doing to decide if you want the file or no +t if(&SOME_FILE_TEST($file)){ #get the file and save the name if($ftp->get($file)){ push(@putFiles, $file); }else{ warn $ftp->message; } } } unless($ftp->quit){ undef $ftp; warn "Could not close the connection cleanly: $!"; } #now you need to connect to the destination server $ftp = Net::FTP->new($dstHost, Timeout => 1800) or die "Cannot contact + $dstHost: $!"; $ftp->login('username', 'password') or die "Cannot login ($dstHost):" +. $ftp->message; $ftp->cwd($path) or die "Cannot change directory ($dstHost):" . $ftp-> +message; foreach my $file (@putFiles){ unless($ftp->put($file)){ warn "Failed to put $file: " . $ftp->message; } } $ftp->quit or die "Could not close the connection cleanly: $!"; sub SOME_FILE_TEST{ #do whatever you want here return 1; }

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://700654]
Approved by pc88mxer
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others musing on the Monastery: (4)
As of 2024-03-29 11:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found