Web::Scraper recipe: download substitles from wikisubtitles

miyagawa on 2007-11-19T18:23:36

This extracts subtitle links from WikiSubtitles Ajax episode links.

#!/usr/bin/perl
use strict;
use Web::Scraper;
use URI;

my $uri = URI->new("http://wikisubtitles.net/ajax_loadShow.php?show=65&season=3");
my $scraper = scraper {
    process '//td[@class="idioma"][text()=~"English \(US\)"]/..//a', 'links[]' => '@href';
};
my $result = $scraper->scrape($uri);

You can paste the URLs to Speeddownload and it's now all set!