Cum salvam fisiere

[Agkelos]

Folosindu-ne de snippet-ul anterior, Cum citim linkuri cu WWW:Mechanize, putem salva fisierele citite, folosind si filtre de extensie.

Pentru a salva un fisier folosim $mech->get($url), unde $mech este o instanta WWW:Mechanize.

Un exemplu mai jos:

Cod:

#!/usr/bin/perl

use WWW::Mechanize;

my $url = 'http://www.skullbox.info/board/';

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()."\n";
                $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

[SkullAds]