📄 ftp
字号:
#!/usr/local/bin/perluse blib;use Net::FTP;use Getopt::Long;$opt_debug = undef;$opt_firewall = undef;GetOptions(qw(debug firewall=s));@firewall = defined $opt_firewall ? (Firewall => $opt_firewall) : ();foreach $host (@ARGV) { $ftp = Net::FTP->new($host, @firewall, Debug => $opt_debug ? 1 : 0); $ftp->login(); print $ftp->pwd,"\n"; $ftp->quit; }
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -