boomerang tv listings
#!/usr/bin/perl -w | |
# List Boomerang tv listings | |
use strict; | |
use URI; | |
use LWP::Simple; | |
use Web::Scraper; | |
use Data::Dumper; | |
use Encode; | |
# Listing site | |
# Boomerang! | |
my $schedule = "http://www.locatetv.com/listings/boomerang"; | |
# scrapin' with Web::Scraper. | |
my $shows = scraper { | |
process "li.schedTv", "shows[]" => scraper { | |
process "a.pickable", title => 'TEXT'; | |
process "li.time", "times" => 'TEXT'; | |
}; | |
}; | |
# print res | |
my $res = $shows->scrape(URI->new($schedule)); | |
# dumper for debuggin' | |
#print Dumper($res); | |
# Pretty stylin' | |
print "\n\t Boomerang TV Listings\n\n"; | |
print "\t -----------------------\n\n"; | |
for my $shows (@{$res->{shows}}) { | |
print $shows->{title}; | |
print "\t-- " . $shows->{times}; | |
print "\n\n"; | |
} | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment