perl - 如何使用Perl下载文件？

Question

我在Windows XP上运行Perl，我需要从URL http://marinetraffic2.aegean.gr/ais/getkml.aspx下载文件。

我应该怎么做？我曾尝试使用WWW::Mechanize，但无法解决这个问题。

这是我使用的代码:

my $url = 'marinetraffic2.aegean.gr/ais/getkml.aspx';
my $mech = WWW::Mechanize->new;
$mech->get($url);

Answer 1

我会为此使用LWP::Simple。

#!/usr/bin/perl

use strict;
use warnings;

use LWP::Simple;

my $url = 'http://marinetraffic2.aegean.gr/ais/getkml.aspx';
my $file = 'data.kml';

getstore($url, $file);