html - 使用 Perl 下载文件

Question

我已经将我的代码更新为如下所示。当我运行它时，它说找不到指定的链接。还有什么是测试它确实连接到页面的好方法？

#!/usr/bin/perl -w
use strict;
use LWP;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
my $browser = LWP::UserAgent->new;

$browser->credentials(
    'Apache/2.2.3 (CentOS):80',
    'datawww2.wxc.com',
    '************' => '*************'
);

my $response = $browser->get(
'http://datawww2.wxc.com/kml/echo/MESH_Max_180min/'
);

$mech->follow_link( n => 8);

---

(原帖)

使用 Perl 下载小文件的最佳方式是什么？

我查看了 CPAN 并找到了 lwp-download，但它似乎只能从链接下载。我有一个页面，其中的链接每三十分钟更改一次，名称中包含日期和时间，因此它们永远不会相同。有我可以使用的内置功能吗？ Google 上的每个人都说要使用 Wget，但我有点想尽可能坚持使用 Perl，只是为了帮助我在使用它编程时更好地学习它。

还有用于登录站点的用户名和密码。我仍然知道如何使用 Perl 访问该站点，但我认为这可能会改变我可以用来下载的内容。

Answer 1

如您在其他问题的评论中所述:here

您可以使用相同的方法检索 .csv 文件作为 .html，或任何其他基于文本的文件。

#!/usr/bin/perl -w
use strict;
use LWP::Simple;

my $csv = get("http://www.spc.noaa.gov/climo/reports/last3hours_hail.csv")
           or die "Could not fetch NWS CSV page.";

要登录，您可能需要使用 WWW::Mechanize填写网络表单(查看 $mech->get()、$mech->submit_form() 和 $mech->follow_link())