你好,游客 登录 注册 搜索
背景:
阅读新闻

获取ftp文件列表的perl程序

[日期:2006-10-07] 来源:  作者: [字体: ]

获取ftp文件列表的perl程序
 
 
#!/usr/bin/perl -w
use Net::FTP;
use strict;
my $server='*.*.*.*';
my $user = 'anonymous';
my $pw = 'ftpuser';

my $ftp = Net::FTP->new($server) ;
$ftp->login($user,$pw) ;
print "login ok! starting list files on $server....\n";
&list("/");
$ftp->quit;
 
#*************************************************#
sub list()
{
 my $current = $_[0];
 my @subdirs;
 
 $ftp->cwd($current);
 my @allfiles = $ftp->ls();
 
 foreach (@allfiles){
  if(&find_type($_) eq "d"){
   push @subdirs,$_;
  }
  else{
   print $current."/$_\n";
  }
 }
 
 foreach (@subdirs){
  &list($current . "/" . $_);
 }
}
sub find_type{
 my $path = shift;
 my $pwd = $ftp->pwd;
 my $type = '-';
 if ($ftp->cwd($path)) {
  $ftp->cwd ($pwd);
  $type = 'd';
 }
 return $type;
}

linux
相关资讯      
本文评论   查看全部评论 (0)
表情: 表情 姓名: 字数

       

评论声明
  • 尊重网上道德,遵守中华人民共和国的各项有关法律法规
  • 承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • 本站管理人员有权保留或删除其管辖留言中的任意内容
  • 本站有权在网站内转载或引用您的评论
  • 参与本评论即表明您已经阅读并接受上述条款