perl - 如何检查 `lwp-download` 是否正常工作？

Question

我对 Perl 一无所知，但我迫切需要修改 Perl 脚本。在某些时候，它使用system("lwp-download $HttpPath $Out");.

有什么方法可以查明下载过程是否正确，例如检查下载的文件是否与原始文件大小相同？

谢谢

Answer 1

从你的 Perl 程序中取出来运行lwp-download另一个 Perl 程序是一件愚蠢的事情。mirror只需用APILWP::Simple替换该调用，您就可以直接在程序中获得不错的错误报告，而不是弄乱退出代码。

如果您需要更好/更细粒度的错误检查，也可以使用mirrorfrom 。LWP::UserAgent

Answer 2

通常，该system命令返回^*它正在运行的程序的退出状态。按照惯例，返回值为零表示成功，非零表示某种错误。

一个典型的成语是这样的

my $status = system($command);
if ($status == 0) {
    # the program succeeded ...
} else {
    # the program failed ...
    warn "The program failed. Status = ", $status>>8, "\n";
}

^* - 排序，perldoc -f system详见