谁能帮我看一下我刚写的这段遍历FTP文件的代码

rubilly

print "*********************************************************\n";
print " FTP Find Tool\n";
print " Build by YangKang \n";
print "*********************************************************\n";
$ARGC=@ARGV;
if ($ARGC!=1) {
print "\n Usage: $0 ftpListFile\n";
exit;
}

use Net::FTP;

#use Strict;
use Socket;
my $ftpfile=$ARGV[0];
use Net::FTP;

sub find_type
{
  my $path = shift;
  my $a=substr($path,0,1);
  return $a;
}


##########################################################
sub list
{
                my $current = $_[0];
                my @subdirs;
                $current=substr($current,1);
                print "$current \n";
                $ftp->cwd($current);
                my @dir=$ftp->dir($current);
                print "\n", "-" x 70, "\n";
                print "@dir\n";
                foreach(@dir)
                {
                  my $path=$ftp->pwd();
                  print "$_\n";
                  my $filetype=&find_type($_);
                  #print "$filetype\n";
                  $filename=substr($_,55);
                  #print "$filename\n";
                  if(&find_type($_) eq "d"
                  {
                    if($filename ne "."
                    {
                      if($filename ne ".."
                      {
                        $currentpath=$path . "/".$filename;
                        #print "$currentpath\n";
                        push @subdirs,$currentpath;

                      }
                    }
                  }
                  else
                  {
                    print $path."/$filename\n";
                  }
                }
                foreach (@subdirs)
                {
                    #print "$_\n";
                    &list($_);
                }
}

#read from file
open(USERFILE,$ftpfile)||die("Can't open the user's list!\n";
@data=<USERFILE>;
foreach(@data)
{
        my @a=split /\s+/,$_;
        $address=shift(@a);
        $port=shift(@a);
        $username=shift(@a);
        $password=shift(@a);
        print "Testing on $addressport usernameusername;passpassword ...\n";
        $ftp=Net::FTP->new($address,Port => $port);
        die "couldn't connect!\n" unless $ftp;
        $ftp->login($username,$password);
        if($ftp->cwd('/'))
        {
                print "FTP Serveraddress can be connected now!\n";
                &list('/');

        }
        else
        {
                print "FTP Serveraddress cann't be connected now!\n";
        }
        $ftp->quit();
}
close (USERFILE);
exit(0);

rubilly

我想用递归的方法来遍历，运行需要一个文件，格式为：
ip port name passwd
可是总是无法遍历目录，出现如下的结果：
*********************************************************
FTP Find Tool
Build by YangKang
*********************************************************
Testing on luzg.ihep.ac.cn:21 username:lily;pass:lily727 ...
FTP Server:luzg.ihep.ac.cn can be connected now!


----------------------------------------------------------------------
dr-x------    2 501      501          4096 Mar 28 00:59 file drwx------    5 501      501          4096 Mar 27 13:18 upload
dr-x------    2 501      501          4096 Mar 28 00:59 file
drwx------    5 501      501          4096 Mar 27 13:18 upload
/ file

----------------------------------------------------------------------

/ upload

----------------------------------------------------------------------

为什么my @dir=$ftp->dir($current);这句起不了作用了呢？

xiaoquqi

你把Debug => 1参数打开，看看问题出在什么地方
我刚写了一个Ftp递归找文件的程序，明天可以给你参考一下，不过不知道跟你的需求是不是一致

rubilly

好的 谢谢
我也是用递归做的

xiaoquqi

1. 
   
2. sub GetRemoteFile
   
3. {
   
4.     my $dir = shift;
   
5.     my $file_hash;
   
6.     #recursion to get true file
   
7.     #my @file = $ftp->ls($dir);
   
8.     my @file = GetFtpFile($dir);
   
9.     my @file = @remote_file_list;
   
10.     undef @remote_file_list;
    
11.     foreach my $file (@file){
    
12.         my $file_size = $ftp->size($file);
    
13.         my $update_time = $ftp->mdtm($file);
    
14.         #$update_time = Second_Date($update_time);
    
15.         my ($path,$filename) = SplitFilePath($file);
    
16.         $file_hash->{$filename}->{full_path} = $file;
    
17.         $file_hash->{$filename}->{path} = $path;
    
18.         $file_hash->{$filename}->{filename} = $filename;
    
19.         $file_hash->{$filename}->{update_time} = $update_time;
    
20.         $file_hash->{$filename}->{size} = $file_size;
    
21.     }
    
22.     return $file_hash;
    
23. }
    
24. sub GetFtpFile
    
25. {
    
26.     my $dir = shift;
    
27.     my @list = $ftp->ls($dir);
    
28.     foreach my $list (@list){
    
29.         my $isDir = FtpisDir($list);
    
30.         if($isDir == 1){
    
31.             GetFtpFile($list);
    
32.         }elsif($isDir == 2){
    
33.             next;
    
34.         }else{
    
35.             push @remote_file_list,$ftp->ls($list);
    
36.         }
    
37.     }
    
38. }
    
39. sub FtpisDir
    
40. {
    
41.     #if a dir return 1,if the dir is empty return 2,else return 0
    
42.     my $dir = shift;
    
43.     my $cwd_retu = $ftp->cwd($dir);
    
44.     my $size_retu = $ftp->size($dir);
    
45.     if($cwd_retu == 1){
    
46.         return 1;
    
47.     }elsif(defined($size_retu)){
    
48.         return 0;
    
49.     }else{
    
50.         return 2;
    
51.     }
    
52. }
    
53. 
    

复制代码