net:ftp模块的问题.

CODE:

sub get_file{
        my($save_data,$host,$file,$ftp_user,$ftp_passwd)=($_[0],$_[1],$_[2],$_[3],$_[4]);
        my $ftp=Net::FTP->new($host,Port=>2121,Passive=>1);
        $ftp->login($ftp_user,$ftp_passwd);
        $ftp->binary;
        my $offset = (stat($save_data))[7] || 0;
        print GLOG &get_time,"  start DL <$host> <$file>\n";
        print &get_time,"  start DL <$host> <$file>\n";
        $ftp->get($file,$save_data,$offset);
        $ftp->quit;
}

QUOTE:

原帖由 freeand 于 2007-10-27 14:41 发表
你的Net::FTP是哪个版本的啊，看看/usr/local/lib/perl5/5.8.8/Net/FTP.pm line 503行是做什么的。

CODE:

501  while(1)
502   {
503    last unless $len = $data->read($buf,$blksize);
504
505    if (trEBCDIC && $ftp->type ne 'I')
506     {
507      $buf = $ftp->toebcdic($buf);
508      $len = length($buf);
509     }
510
511    if($hashh) {
512     $count += $len;
513     print $hashh "#" x (int($count / $hashb));
514     $count %= $hashb;
515    }
516    unless(print $loc $buf)
517     {
518      carp "Cannot write to Local file $local: $!\n";
519      $data->abort;
520      close($loc)
521         unless $localfd;
522      return undef;
523     }
524   }

CODE:

490   while (1) {
491     last unless $len = $data->read($buf, $blksize);
492
493     if (trEBCDIC && $ftp->type ne 'I') {
494       $buf = $ftp->toebcdic($buf);
495       $len = length($buf);
496     }
497
498     if ($hashh) {
499       $count += $len;
500       print $hashh "#" x (int($count / $hashb));
501       $count %= $hashb;
502     }
503     unless (print $loc $buf) {
504       carp "Cannot write to Local file $local: $!\n";
505       $data->abort;
506       close($loc)
507         unless $localfd;
508       return undef;
509     }
510   }