Ferl, Facebook con perl :D
He nombrado este miniproyecto "Ferl" Facebook con perl , iré actualizando el código agregando nuevas características apenas vaya teniendo un poquito de tiempo.
Es claro que día a día buscamos como automatizar o hacer mas fácil ciertas tareas que hacemos, o mas simple aun ¿porque no actualizar nuestro estado de Facebook desde nuestra linea de comandos?
¿Porque hacerlo? , porque podemos :D .
Esta demás decir que estas herramientas nos sirven para marketing online, pasar avisos o incluso ganar concursos =x (darkside) pero hoy solo veremos como mediante perl podemos actualizar nuestro estado mediante la graphAPI de Facebook !
¿Que módulos vamos a utilizar? ( hay quienes le gusta complicar todo, pero ¿porque no hacerlo simple )
Vamos a ver que todo se basa en enviar peticiones a : https://graph.facebook.com y en la documentación veremos los parámetros disponibles y como se conforma la estructura de la peticion.
Como lo que nos interesa publicar, veremos que esto se hace de la siguiente manera:
Vamos a generar un POST para me/feed, con la variable "message" con el contenido que queremos que salga en nuestro muro, en otras palabras y mas simple hemos realizado la siguiente peticion:
POST graph.facebook.com
/me/feed?
message="Hello, World."&
access_token={your-access-token}
Lo que finalmente se vera reflejado en nuestro muro, ya explicado esto vamos al codigo ! #perl
#!/usr/bin/perl
#Ferl, Facebook con Perl
#ShineeLabs
#contacto@xshinee.cl
use strict;
use URI;
use LWP::Simple;
my $access_token = 'Aqui va el token';
my $message = <STDIN>;
chop($mensaje);
conecta ('me/feed', {
access_token => $access_token,
message => $mensaje,
method => 'post'
});
exit 0 ;
sub conecta {
my $urlbase = new URI ('https://graph.facebook.com' . shift );
$urlbase -> query_form(shift);
my $respuesta = get("$urlbase");
}
Como pueden ver en este ejemplo utilizamos la entrada estándar, pero basta un poquito de conocimiento en #perl para poder enviar mensajes de forma automatizada, o usar una lista de mensajes haciendo uso de el manejo de ficheros en perl, o abusar de algunos while & sleep para hacer que el mensaje se envié de forma automática y sincronizada.
¿Qué otros parámetros podemos utilizar? , revisen la Documentación de la grapAPI .
FIN
exit;
