Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
Cartoon Network TV Listings
#!/usr/bin/perl -w
# List Cartoon Networking TV Listings.
# Because I am bored, and watch cartoons..
use strict;
use URI;
use LWP::Simple;
use Web::Scraper;
use Data::Dumper;
use Encode;
# Listing site
# Cartoon Network
my $schedule = "http://www.locatetv.com/listings/cartoon-network";
# scrapin' with Web::Scraper.
my $shows = scraper {
process "li.schedTv", "shows[]" => scraper {
process "a.pickable", title => 'TEXT';
process "li.time", "times" => 'TEXT';
};
};
# lets print that shit out
my $res = $shows->scrape(URI->new($schedule));
# dumper for debuggin'
#print Dumper($res);
# Pretty stylin'
print "\n\t Cartoon Network TV Listings\n\n";
print "\t -----------------------\n\n";
# pretty print my shit
for my $shows (@{$res->{shows}}) {
print $shows->{title};
print "\t-- " . $shows->{times};
# give it a new line yo
print "\n\n";
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment