Twitter es una red social que sirve para compartir pequeñas noticias o enlaces y además sirve para otras muchas cosas, como aprender de relaciones sociales y obtener cierta información sobre 'amistades' de tu contactos o de otros contactos. Una de las cosas que está más de moda hoy en día son las gráficos de relaciones y poder saber a cuantos 'amigos' estás de otra persona. Twitter y linkedin sirven para hacer éste tipo de 'experimentos sociales'.
A continuación os dejo un pequeño trozo de código, escrito en perl, empelando la librería "Net::Twitter", disponible desde repositorios debian, para poder acceder a la lista de personas que te siguen o a las que sigues, pero también de otras cuentas.
#!/usr/bin/perl use Net::Twitter; unless($ARGV[0]){ print "Usage: $0 {user}\n"; exit 1; } my $myuser = $ARGV[0]; my $CONSUMER_KEY = 'XXXX'; my $CONSUMER_SECRET = 'XXXX'; my $ACCESS_KEY = 'XXXX'; my $ACCESS_SECRET = 'XXXX'; my $nt = Net::Twitter->new( traits => [qw/OAuth API::REST/], consumer_key => $CONSUMER_KEY, consumer_secret => $CONSUMER_SECRET, access_token => $ACCESS_KEY, access_token_secret => $ACCESS_SECRET, ); print "List of followers:\n"; for (my $cursor = -1, my $r; $cursor; $cursor = $r->{next_cursor}){ $r = $nt->followers({ screen_name=>$ARGV[0],cursor => $cursor }); push @followers, @{ $r->{users} }; for my $user (@followers){ print "\t@".$user->{'screen_name'}." (".$user->{'name'}.")\n"; } } print "\nList of friends:\n"; for(my $cursor = -1, my $r; $cursor; $cursor = $r->{next_cursor}){ $r = $nt->friends({screen_name=>$ARGV[0],cursor=>$cursor}); push @friends, @{ $r->{users} }; for my $user (@friends){ print "\t@".$user->{'screen_name'}." (".$user->{'name'}.")\n"; } }
El método de empleo es muy simple, tras configurar la autenticación OAuth sólo queda pasarle el nombre del usuario de Twitter del que deseas averiguar la lista de amigos y seguidores que tiene. Tras una breve espera, los tendrás.
shell> listado j_tlopez List of followers: @fribadas (Francisco J. Ribadas) @trasno0 (Alex Pereiro) @iSepti (ivan) @pepellou (José Doval) ... List of friends: @Snort (Snort) @googlereader (Google Reader) @Linux (Linux) @climagic (Command Line Magic) @googlecalendar (Google Calendar) ...
Qué hacer con esos datos y cómo explotarlos, de momento es cosa tuya ;-)
No hay comentarios :
Publicar un comentario