bucky2/rest/topsy-display.pl


1
2
3
4
5
6
7
8
9
10
11
12

#!/usr/bin/perl
use lib "../lib";
use Rest::Topsy;
my $topsy = new Rest::Topsy;
$topsy->url('http://twitter.com/dailyrotten');
my $entries = $topsy->topsy_load;

foreach my $entry (sort { $b->{'total'} <=> $a->{'total'} } @$entries)
	{
	print $entry->{'total'} ."\t".$entry->{'date'}. "\t" . $entry->{'description'} ."\n";
	}