首页 / 操作系统 / Linux / 获取ftp文件列表的perl程序

获取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.... ";
&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."/$_ ";
  }
 }
 
 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;
}