Welcome to using Perl! Here is a basic example of using the Net::FTP module getting a list of files (in the example, they are .xml files). The program logs in, changes to a directory called bulk_download, gets the list of files, and then ftps them. At the end, it says how many files were fetched. Hope this helps!
#!/usr/bin/perl -w
use Net::FTP; # use the ftp module
use strict;
my (@filelist, $file, $ftp, $ftp_count);
my $host = 'your ip address';
my $user = 'username'; # user name for login
my $pass = 'password'; # password for login
$ftp_count = 0;
$ftp = Net::FTP->new($host, Debug => 0); # start an FTP session
$ftp->login($user,$pass); # login
$ftp->cwd("bulk_download"); # go to the bulk_dowload
+directory
$ftp->binary; # make sure we ftp the fi
+le as binary
@filelist = $ftp->ls("*.xml"); # and get the list of .xm
+l files
foreach $file (@filelist){
$ftp->get($file); # fetch it,
++$ftp_count;
}
$ftp->quit;
print "For $host found $ftp_count files\n";
| [reply]
[d/l] |
Sounds like you should try Net::FTP. It can connect to sites and do all the things you need to do: ls, get, etc.
Phil | [reply] |