#!/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; }
In reply to Twitter Reader by wizbancp
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |