boomerang tv listings

boomerang.pl

#!/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";
}