diff options
Diffstat (limited to 'bucky2/rest/topsy-display.pl')
| -rwxr-xr-x | bucky2/rest/topsy-display.pl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/bucky2/rest/topsy-display.pl b/bucky2/rest/topsy-display.pl new file mode 100755 index 0000000..88d4976 --- /dev/null +++ b/bucky2/rest/topsy-display.pl @@ -0,0 +1,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"; + } + |