我在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);
解决方法
我会用
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);