Folosindu-ne de snippet-ul anterior,
Cum citim linkuri cu WWW:Mechanize, putem salva fisierele citite, folosind si filtre de extensie.
In
Perl, pentru a salva un fisier folosim $mech->get($url), unde $mech este o instanta WWW:Mechanize.
Un exemplu mai jos:
#!/usr/bin/perl
use WWW::Mechanize;
my $url = 'http://www.skullbox.info/';
my $mech = WWW::Mechanize->new();
$mech->get( $url );
my @links = $mech->links();
foreach my $link (@links) {
if( $link->url() =~ m/.php/ ){
print "Saving ".$link->url()."
";
$mech->get($link->url(),":content_file"=>$link->url());
}
}
Exemplul e pentru a copia doar fisierele .php, dar se poate inlocui linia
if( $link->url() =~ m/.php/ ){ ca sa facem match pe o alta extensie sau se poate scoate de tot conditia pentru a salva tot ce se prinde
