Jak mogę pobrać plik za pomocą Perla?

Question

Używam Perla w systemie Windows XP, i muszę pobrać plik z adresu URL http://marinetraffic2.aegean.gr/ais/getkml.aspx.

Jak powinienem to zrobić? Próbowałem używać WWW :: Mechanize, ale nie mogę się z tym pogodzić.

Jest to kod użyłem:

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

Answer 1

użyję LWP::Simple do tego.

#!/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); 

Answer 2

Jeśli pobierasz właśnie ten plik, lepiej pójdź z odpowiedzią @ davorg.

Jeśli jest to część większego procesu, uzyskujesz dostęp do źródła zasobów pobranego w postaci ciągu znaków przy użyciu metody content na swoim obiekcie .

Answer 3

use WWW::Mechanize; 

my $url = 'marinetraffic2.aegean.gr/ais/getkml.aspx'; 
my $local_file_name = 'getkml.aspx'; 

my $mech = WWW::Mechanize->new; 

$mech->get($url, ":content_file" => $local_file_name); 

To faktycznie opakowuje dookoła LWP::UserAgent->get. Więcej szczegółów tutaj: http://search.cpan.org/dist/WWW-Mechanize/lib/WWW/Mechanize.pm# $ mech-> get ($ uri)

Answer 4

użyłem File::Fetch, gdyż jest to podstawowy moduł Perl (nie trzeba instalować żadnych dodatkowych pakietów) i postara wielu różnych sposoby pobierania pliku w zależności od tego, co jest zainstalowane w systemie.

use File::Fetch; 
my $url = 'http://www.example.com/file.txt'; 
my $ff = File::Fetch->new(uri => $url); 
my $file = $ff->fetch() or die $ff->error; 

Należy zauważyć, że ten moduł będzie w rzeczywistości starają się używać LWP pierwsze, jeśli jest zainstalowany ...