projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Holding filehandle open
[p5sagit/p5-mst-13.2.git]
/
lib
/
Net
/
demos
/
ftp
1
#!/usr/local/bin/perl
2
3
use blib;
4
use Net::FTP;
5
use Getopt::Long;
6
7
$opt_debug = undef;
8
$opt_firewall = undef;
9
10
GetOptions(qw(debug firewall=s));
11
12
@firewall = defined $opt_firewall ? (Firewall => $opt_firewall) : ();
13
14
foreach $host (@ARGV)
15
{
16
$ftp = Net::FTP->new($host, @firewall, Debug => $opt_debug ? 1 : 0);
17
$ftp->login();
18
print $ftp->pwd,"\n";
19
$ftp->quit;
20
}
21