用Perl访问ftp服务器

[plain]  
#!/usr/bin/perl  
  
use Net::FTP;  
$ftp = Net::FTP->new("133.109.9.1", Debug => 0)  
or die "Cannot connect to some.host.name: $@";  
$ftp->login("ftpuser",'ftppwd')  
or die "Cannot login ", $ftp->message;  
$ftp->cwd("/etc")  
or die "Cannot change working directory ", $ftp->message;  
$ftp->get("passwd")  
or die "get failed ", $ftp->message;  
$ftp->quit;  
 

补充：Web开发 , 其他 ,

上一个：用Perl语言读取网络设备SNMP信息
下一个：Log4j学习笔记-log4j配置示例&Spring集成log4j