ftlからファイルをダウンロードするときのperlタイムアウト

Question

私は、perlを使ってftpリンクからダウンロードする時間がかかっている膨大なファイルをダウンロードしようとします。 私が得た：

Timeout at C:/Strawberry/perl/lib/Net/FTP.pm 

これが意味ないものをとそれを解決するためにどのように？

おかげ

ソリューション： おかげで、私は、ファイルが読み取り可能であるかどうか、あなたが続けるループがファイルを追跡しながら使用して私のperlのファイルに"not ftp.pm file" おかげ

Answer 1

をタイムアウト値を変更 @クリス・ドイルない。 それ以外の場合は、WHILEループを続行する値を設定します。ファイルが読み込み可能になると、ファイルは完全にダウンロードされ、次の行を実行することができます。これはタイムアウトの問題を解決する1つの方法です。

Answer 2

タイムアウトを長くすることはできますが、タイムアウトにもう一度なり、サーバー/クライアントが同期していない場合は、初めて同じエラーが発生する可能性があります。

あなたのPerlスクリプトではエラー処理が不足していると思われます。

きっとあなたのperlスクリプトでこのようなものを持っている：

my $ftp = Net::FTP->new($myhost, Timeout => 10, Debug => 1); 
... 
$ftp->get($myfile) or print "Got an error"; 
$ftp->quit(); 

これはの外にある注意してください.../perlの/ libに/ FTP以来、ネット/ FTP.pm、 .pmは第三者モジュール（Kind of library）で、 に到達しています。移植性を避けるために触れないことをお勧めします。 後で問題が発生します。サーバ/クライアントだけで同期してから抜け出すこと、

は通常、タイムアウトはFTP.pm内に到達すると、それは条件「エラーを得た」 または印刷になりますが、いくつかのケースがありますFTP.pmは未処理の例外をスローします。

この例外は、はまたは印刷に行くことはありません条件「エラーを得た」、したがって、あなたはそれをキャッチし、他の言語としてそれを処理する必要があります。

ここではevalを使用してコードを包み込み、例外をキャッチして必要に応じて処理できます。例えば

：

my $ftp = Net::FTP->new($myhost, Timeout => 10, Debug => 1); 
... 
eval {$ftp->get($myfile) or print("Can't get file $myfile") }; 
if ($@ =~ /Timeout/) { 
    print "Got a timeout Issue: $@"; 
} 

$ftp->quit();