1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/usr/bin/perl
use strict;
use warnings;
use lib "lib";
use Web::Scraper;
use URI;
use YAML;
# extract HD trailers from Dave's trailer page
my $uri = URI->new("http://www.drfoster.f2s.com/");
my $s = scraper {
process "td>ul>li", "trailers[]" => scraper {
process_first "li>b", title => "TEXT";
process_first "ul>li>a[href]", url => '@href';
process "ul>li>ul>li>a", "movies[]" => sub {
my $elem = shift;
return {
text => $elem->as_text,
href => $elem->attr('href'),
};
};
};
result "trailers";
};
warn Dump $s->scrape($uri);
|
