20 lines
370 B
Perl
20 lines
370 B
Perl
|
#!/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();
|