Download PragPub magazine

pragpub.pl

use URI;
use URI::URL;
use Web::Scraper;
use LWP::Simple;

my $pp = "http://pragprog.com/magazines";
my $ok = "epub";

my $mags = scraper {
    process "span.link", "mags[]" => scraper {
        process "a", link => '@href';
    };
};

my $res = $mags->scrape(URI->new($pp));

for my $mag (@{$res->{mags}}) {
    my $url = $mag->{link};
    my @parts = (new URI::URL $url)->path_components;
    my $file = $parts[3];
    if ( ! -e $file && $file =~ /$ok/ ) {
        print "SAVING FILE:\t$file\n";
        getstore($url, $file);
    }
}