/usr/share/doc/libweb-scraper-perl/examples/dave-trailer-HD.pl is in libweb-scraper-perl 0.38-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
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);
|