Taller3: Bloque T3.2

1.Hacer una petición a twitter de las últimas líneas de status de los "amigos".

Este ejercicio lo hicimos en clase. Hacemos una petición http usandio la API de Twitter y se devuelve el resultado en formato xml. Hicimos uso de la funcion friends_timeline que nos devueve los últimos 20 status de nuestros amigos.Hacemos POST porque no enviamos información, sino que la recibimos.

#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Request::Common qw(POST GET);
use XML::Simple;
my $ua = LWP::UserAgent->new();
my $request = GET 'http://aap_ugr:ugr_aap@twitter.com/statuses/friends_timeline.xml';
my $res = $ua->request($request);
my $cont = XMLin($res->content);

for my $resultado ( %{$cont->{'status'}} ) {
print $resultado->{'text'},"\n";
}