Net::FTP - Timeout-Problem - #37861 (Netzwerkprogrammierung und Netzwerke mit Perl)

tschonn

2005-04-14 20:07

User since
2005-04-14
2 Artikel
BenutzerIn
[default_avatar]

Wie ich jetzt festgestellt habe, läuft mein Script beim Datenholen per Net::FTP ganz selten auf einen Timeout. Es werden viele Dateien geholt und der Timeout scheint aufzutreten, wenn einige Dateien schon auf der Platte liegen. Den Logfiles ist auch zu entnehmen, dass das Programm nicht zuende läuft, eine Fehlermeldung ist bis auf den Timeout aber nicht zu finden.
Wenn ich das Problem richtig sehe, fange ich den Timeout aber auch nicht ab, habe aber auch keine Idee, wie das geschehen soll?

#---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+-

Code: (dl )

Hauptprogramm:

my $ftp = Net::FTP->new($ftpServ);
&ftpget($ftp, "$ftpPath/$ftpFile","$localPath/$ftpFile") or warn "kann Datei beim get nicht schreiben: $locDatePath/$ftpFile\n";
push(@filelist, "$localPath/$ftpFile");
$ftp->quit();

#---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+-
sub zum Datenholen

Code: (dl )

sub ftpget {
  my ($ftp, $remote, $local) = @_;
  my $get = $ftp->get("$remote", "$local");
  return 0 if not defined $get;
  my $res = 0;
  if ($local =~ /$get/) {
    print "\tget $remote --> $local\n";
    $res = 1;
  } else {
    print "\tget ERFOLGLOS:  $remote -/-> $local\n";
  }

  return $res;
}

#---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+-
Aus dem Logfile:
Timeout at /usr/lib/perl5/site_perl/5.6.1/Net/FTP.pm line 956

edit pq: code-tags hinzugefügt\n\n