Perl i Twitter

De daniel | Publicat: 10 març 2010

Per actuar amb Twitter des de Perl, podem utilitzar el modul Net::Twitter. Un vegada instal·lat (ell i totes les seves dependències), utilitzar-lo és senzill el que cal és conèixer bé la filosofia de l’API de Twitter.

Per exemple, un senzill script per enviar tweets des de la línia d’ordres:

#!/usr/bin/perl

use Net::Twitter;
use Getopt::Std;

getopts("e:");
my $nt=Net::Twitter->new(
    traits=>[qw/API::REST/],
    username=>’nomusuari’,
    password=>’elnostrepassword’,
);

if($opt_e){
    my $result=$nt->update($opt_e);
} else {
    print "\nFalta el missatge: \$ tweet.pl -e \'missatge\'\n";
}

Per fer un cerca a Twitter i llistar els resultats podem provar aquest script (exemple de la documentació oficial):

#!/usr/bin/perl

use Net::Twitter;
my $nt=Net::Twitter->new(
    traits=>[qw/API::REST API::Search/],
    username=>’nomusuari’,
    password=>’elnostrepassword’,
);

my $r = $nt->search("gimp");
for my $status ( @{$r->{results}} ) {
    print "$status->{text}\n";
}

Altres textos similars:

  1. Perl i SQLite
Aquesta entrada es va publicar en Programació i classificat en , . Bookmark el permalink. Publicar un comentari o deixar un trackback: URL del Trackback.

Publicar un comentari

El teu correu mai serà compartit o publicat. Els camps obligatoris estàn marcats *

*
*

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>