getsockname() on closed socket

liweimaster

1. 
   
2. #!c:/perl/bin/perl.exe -w
   
3. use Net::FTP;
   
4. use strict;
   
5. my $server='202.96.64.144';
   
6. my $user = 'anonymous';
   
7. my $pw = 'anonymous';
   
8. my $ftp = Net::FTP->new($server) ;
   
9. $ftp->login($user,$pw) ;
   
10. #print "login ok! starting list files on $server....\n";
    
11. &list("/pub");
    
12. $ftp->quit;
    
13. sub list()
    
14. {
    
15. my $current = $_[0];
    
16. my @subdirs;
    
17. 
    
18. $ftp->cwd($current);
    
19. my @allfiles = $ftp->ls();
    
20. 
    
21. foreach (@allfiles){
    
22.   if(&find_type($_) eq "d"){
    
23.    push @subdirs,$_;
    
24.   }
    
25.   else{
    
26.    print $current."/$_\n";
    
27.   }
    
28. }
    
29. 
    
30. foreach (@subdirs){
    
31. 
    
32.   &list($current . "/" . $_);
    
33. }
    
34. }
    
35. 
    
36. 
    
37. sub find_type{
    
38. my $path = shift;
    
39. my $pwd = $ftp->pwd;
    
40. my $type = '-';
    
41. if ($ftp->cwd($path)) {
    
42.   $ftp->cwd ($pwd);
    
43.   $type = 'd';
    
44. }
    
45. return $type;
    
46. }

复制代码

每次运行都出现
getsockname() on closed socket


linux没这问题

apile

use Carp;
local $SIG{__WARN__}=\&Carp::cluck;
加入这两行看问题出在哪儿...