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.文件直接链接 https://www.regelleistung.net/ext/data/您可以点击＆＃34; MRL＆＃34;，＆＃34; SRL＆＃34;和＆＃34; RZ_SALDO＆＃34;。

此外，如果我尝试通过点击浏览器中的链接来下载文件，则需要在实际下载开始之前永远加载。

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

你有什么提示可以帮助我解决这个问题吗？使用其他一些库或方法？即使是关键词可能会有所帮助，因为我实际上并不知道我可以在谷歌上搜索什么。

Answer 1

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

要进行您所询问的更改，需要完整的LWP::UserAgent模块，但我认为如果您继续尝试几次，您的代码应该适用于您

通过LWP下载文件会返回错误500（由于等待时间过长可能会超时）

1 个答案: