Is a code for visualize the last post of you and your friend's on twitter.
configurable number of post to read (default 8)
#!/usr/bin/perl -w
require LWP::UserAgent;
#$indirizzorss is your rss address
$indirizzorss = "http://twitter.com/statuses/friends_timel
+ine/xxxxxx.rss";
$nummess= 8; #max number of post to show
my $ua = LWP::UserAgent->new;
$ua->agent('WizTwitterBot/1.0');
$ua->timeout(10);
$ua->env_proxy;
sub pausa #mette in pausa il programma prima di uscire
{
print "\nPremi Invio per continuare\n";
my $pausa = <STDIN>;
} #fine subroutine pausa
sub catturaxml
{
$codice = shift;
$cont = shift;
while (($codice =~ m/<title>(.*)<\/title>/g)&&($cont>0))
{
my $contenuto="$1";
print "-"x36,"\n";
print "$contenuto\n";
$cont--
}
}
$response = $ua->get("$indirizzorss");
if ($response->is_success)
{
$codicexml = $response->content;
catturaxml($codicexml,$nummess);
pausa;
}
else
{
die $response->status_line;
}