Help for this page

Select Code to Download


  1. or download this
    my $ftp = Net::FTP->new( $row->{ftp_host}, Debug => 1)
     or die "Cannot connect to " . $row->{ftp_host} . ": $@";
    ...
    $ftp->pasv;    
         
    my @dir = $ftp->ls; # <-- LINE 50
    
  2. or download this
    Net::FTP>>> Net::FTP(2.75)                                            
    +         
    Net::FTP>>>   Exporter(5.58)                                          
    +         
    ...
    Net::FTP=GLOB(0x8521bbc)<<< 227 Entering Passive Mode (64,74,223,25,15
    +,182).   
    Net::FTP=GLOB(0x8521bbc)>>> PORT 192,168,1,101,130,121                
    +         
    Net::FTP: Unexpected EOF on command channel at getenomlogs.pl line 50