Saving FTP File

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi there Monks!

I need to get some files from my server and save I copy of these files somewhere in a specific directory this code shows it perfectly what I need in order to get the files from my server, but where I tell the FTP where to save the downloaded files into a specific directory?

#!/usr/local/bin/perl -w

use Net::FTP;

$hostname = 'remotehost.com';
$username = 'anonymous';
$password = 'myname@mydomain.com';

# Hardcode the directory and filename to get
$home = '/pub';
$filename = 'TESTFILE';

# Open the connection to the host
$ftp = Net::FTP->new($hostname);        # Construct object
$ftp->login($username, $password);      # Log in

$ftp->cwd($home),"\n";                  # Change directory
print $ftp->ls($home),"\n";        

# Now get the file and leave
$ftp->get($filename); 
$ftp->quit;
[download]

Thanks!!!

Comment on Saving FTP File Download Code

Replies are listed 'Best First'.
Re: Saving FTP File by Fletch (Bishop) on Feb 27, 2008 at 16:57 UTC
Hrmm, perhaps the entry for the `get` method in the Net::FTP documentation might shed some light on this . . . The cake is a lie. The cake is a lie. The cake is a lie.	[reply] [d/l]
Re: Saving FTP File by moklevat (Priest) on Feb 27, 2008 at 20:19 UTC
Almost there! There are a few things you should clean up in addition to figuring out how get() works. `use strict;` Lexically scope all of those variables with "my" to make strict happy. "Hardcode" your desired local directory, and tell get() about it. You don't need to add a newline to the cwd(). Your syntax for printing the filelist with newlines won't work. Use map instead. Add some error checking and feedback. #!/usr/local/bin/perl -w use strict; use Net::FTP; my $hostname = 'mirror.anl.gov'; my $username = 'anonymous'; my $password = 'username@domain.com'; # Hardcode the directory and filename to get my $home = '/pub'; my $filename = 'motd'; # Hardcode the local directory my $localdir = '/home/boy/'; # Open the connection to the host my $ftp = Net::FTP->new($hostname) or die "Cannot connect to $hostname: $@"; # Construct object $ftp->login($username, $password) or die "Cannot login ", $ftp->message;; # Log in $ftp->cwd($home) or die "Cannot change working directory ", $ftp->message;# Change +directory my @filelist=$ftp->ls($home); print map { "$_\n"} @filelist; # Now get the file and leave $ftp->get($filename,$localdir.$filename) or die "Cannot get $filename: $@"; $ftp->quit; [download]	[reply] [d/l] [select]