Perl kullanarak bir dosyayı nasıl indirebilirim?

Question

Windows XP'de Perl çalıştırıyorum ve http://marinetraffic2.aegean.gr/ais/getkml.aspx URL'sinden bir dosya indirmem gerekiyor.

Bunu nasıl yapmalıyım? WWW :: Mechanize kullanmayı denedim, ancak kafamı bulamıyorum.

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

Answer 1

Bunun için LWP::Simple kullanmak:

Bu kullandığım koddur.

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

Bu dosyayı yüklüyorsanız tüm yapmanız gereken şey, @ davorg'un cevabı ile devam etmelisiniz.

Daha büyük bir sürecin parçasıysa, $mech nesnesine content yöntemini kullanarak dize olarak indirdiğiniz kaynak akışına erişebilirsiniz.

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); 

Bu, aslında LWP::UserAgent->get'un etrafını sarar. Burada daha fazla bilgi: http://search.cpan.org/dist/WWW-Mechanize/lib/WWW/Mechanize.pm# $ mekanizmasýna> get ( $ uri) Bu çekirdek Perl modülü (Ben herhangi bir ek paketlerin kurulumuna gerek yoktu) olduğu gibi File::Fetch kullanılan ve farklı bir dizi çalışacağız

Answer 4

sistemde yüklü olanlara bağlı olarak bir dosya indirme yolları. Bu modül aslında yüklü ilk eğer LWP kullanmaya çalışır o

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; 

Not ...