Twittando com o Perl (parte 1)

ticursos

O Perl é uma das linguagens mais utilizadas no mundo, e o programador ou webmaster moderno devem ter a habilidade fazer seus aplicativos se comunicarem com as redes sociais, ferramentas fundamentais do marketing web atual.

[ Hits: 15.962 ]

Por: Thiago Glauco Sanchez em 16/03/2011

0 0

Denuncie Favoritos Indicar Impressora

API REST e Paginação

A API REST

A API REST permite acesso às informações de usuário, além de permitir que você poste como se fosse o próprio usuário. Esta é a API mais importante, portanto leia a documentação do Net::Twitter e do próprio Twitter.

O método followers retorna um array de HASH_REFS com as informações de seus seguidores. É interessante você ver o formato destas referências com o Data::Dumper.

my $followers = $nt->followers( );
say Dumper $followers;

O método update é o que você pode utilizar para twittar:

$nt->update("$message");

O método followig_ids retorna um array com os ids das contas que são seguidas pelo usuário autenticado.

Enfim, a API é imensa e não vale ficar aqui explicando método a método. Leia a documentação, estude os formatos de saída com Data::Dumper e os monges estarão a disposição para maiores dúvidas.

Paginação

Uma outra coisa importantíssima é a paginação. Alguns métodos retornam resultados muito longos, como lista de seguidores ou mesmo os resultados de pesquisas tem diversas páginas. Para estes métodos que usam paginação o Net::Twitter tem os parâmetros page e cursor. O parâmetro page informa o número da página desejada:

for(my $page = 1; $page < 5; $page++){
   my $result = $nt->search({q => 'Linux',
                           rpp => 10,
                           lang => 'pt',
                        page => $page});
     for (@{$result->{results}}){
        say $_->{text}
     }
}

Já o cursor é uma referencia a próxima página:

for ( my $cursor = -1, my $result; $cursor; $cursor = $result->{next_cursor} ) {
   $result = $nt->search({q => 'Linux',
               pp => 10,
                   lang => 'pt',
               cursor => $cursor});
   for (@{$result->{results}}){
        say $_->{text}
     }
}

Agora que você entendeu a API, vamos montar a aplicação completa no próximo artigo, semana que vem.

Abs.

Página anterior

Páginas do artigo

   1. Registrando sua aplicação
   2. Autenticando o usuário
   3. As APIS do Twitter - API Search
   4. API REST e Paginação

Outros artigos deste autor

Nenhum artigo encontrado.

Leitura recomendada

Catalyst Framework Perl - (parte 2)

URL amigável com Perl

Introdução a CGI com a RFC 3875

Programando uma Intranet com Apache, MySQL e Perl (parte 1)

Catalyst Framework Perl (parte 1)

Comentários

[1] Comentário enviado por mtarroyo em 18/03/2011 - 00:25h

Muito bom o seu artigo. Estou desenvolvendo um trabalho utilizando a API do Twitter e os conceitos apresentados por você foram muito úteis.

0 0