The following commands allow you to pick up a file via FTP : FTP « Network « Perl






  1. Perl
  2. Network
  3. FTP

The following commands allow you to pick up a file via FTP

    

#!/usr/bin/perl -w

# Usage:
# perl ftp.pl host username password

use Net::FTP;
$host     = $ARGV[0];
$user     = $ARGV[1];
$password = $ARGV[2];

$ftp = Net::FTP->new($host);
$ftp->login($user, $password);
$ftp->cwd("/pub");
$dir = $ftp->dir();
foreach $line ( @$dir ) {
   print "$line\n";
}
$ftp->binary();
$ftp->get("filename.tgz");
$ftp->quit();








Related examples in the same category

1.Using Net::FTP to get a file on the server
2.Using a Net::FTP Object
3.Simple FTP client
4.Login to a FTP server