teamliquid top stream scraper

teamliquid.pl

#!/usr/bin/perl

# TL stream scraper ! 
use strict;
use URI;
use LWP::Simple;
use Web::Scraper;
use Data::Dumper;
use Encode;

my $teamliquid = "http://www.teamliquid.net";

my $content = scraper {
	process "div#streams_content div", "streams[]" => scraper {
				process "a.rightmenu", streamer => 'TEXT';
				process "span.viewers", viewers => 'TEXT';
	};
};

my $res = $content->scrape(URI->new($teamliquid));
#print Dumper($res);

print "\n\t Team Liquid Top Streamers \n\n";
print "\t ----------------------------\n\n";

for my $shit (@{$res->{streams}}) {
	print "Streamer : " . $shit->{streamer} . "\t";
	print "\t";
	print "# of viewers : " . $shit->{viewers};
	print "\n";
}