Print Page - Cum salvam fisiere

Folosindu-ne de snippet-ul anterior, Cum citim linkuri cu WWW:Mechanize (http://www.skullbox.info/perl-snippets-60/cum-citim-linkuri-cu-wwwmechanize/), putem salva fisierele citite, folosind si filtre de extensie.

In Perl (http://www.lamp.ro/category/perl-practical-extraction-and-report-language/), pentru a salva un fisier folosim $mech->get($url), unde $mech este o instanta WWW:Mechanize.

Un exemplu mai jos:

Code:

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

SkullBox Forum

Development => Perl snippets => Topic started by: Agkelos on 23-12-2007, 20:23