通过LWP下载文件returns错误500（可能等待时间长超时）

Question

我是 Perl 的新手，只是尝试使用一个简单的小脚本来下载文件。它适用于大多数网站，但似乎不适用于我需要从中下载文件的某个特定网站。

我的代码是：

use LWP::Simple;

my $status = getstore("http://www.regelleistung.net/download/ABGERUFENE_MRL_BETR_SOLL-WERTE.CSV", "file.csv");

if ( is_success($status) )
{
  print "file downloaded correctly\n";
}
else
{
  print "error downloading file: $status\n";
}

我总是收到错误状态 500。文件直接 linked https://www.regelleistung.net/ext/data/ 您可以在其中单击 "MRL"、"SRL" 和 "RZ_SALDO"。

此外，如果我尝试通过单击浏览器中的 link 下载文件，在实际下载开始之前需要很长时间才能加载。

我觉得我需要 getstore() 等待它超时（比如 ~60 秒）或文件加载。

你有什么提示可以帮助我解决这个问题吗？使用其他一些库或方法？甚至 keyworks 也可能有帮助，因为我实际上不知道我可以在 Google.

上搜索什么

Answer 1

你的代码运行我第一次尝试就成功了。我怀疑您第一次测试时该站点可能很忙

要进行您要求的那种更改，您需要完整的 LWP::UserAgent 模块，但我认为如果您继续尝试几次，您的代码应该适合您

通过LWP下载文件returns错误500（可能等待时间长超时）

File download via LWP returns error 500 (probably timeout due to long waiting time)

perl

download

lwp