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.931 ]

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 1)

URL amigável com Perl

Executando os principais frameworks Perl no cPanel com CGI

Phperl, minha gambiarra para usar Perl como se fosse PHP

Catalyst Framework Perl - (parte 2)

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