Algowful :: Fóruns
use Modern::Perl;
use SomethingAwful::Forums;
use Data::Dumper;
my $SA = SomethingAwful::Forums->new;
$SA->login(
'username' => 'something',
'password' => 'awful',
);
my $scraped_thread = $SA->fetch_posts(
thread_id => 3343753,
pages => 1,
);
# view the data structure
say Dumper( $scraped_thread );
$SA->reply_to_thread( thread_id => 3343753, 'gas' );Raspe e poste nos fórums.somethingawful.com.
Veja /Exemplos Pasta.
# install everything needed by the SomethingAwful::Forums module + examples
cpanm --with-recommends git://github.com/ugexe/SomethingAwful--Forums.gitWeb :: Raspador Rasper para a página de índice do fórum de raspagem.
Web :: raspador para raspar um fórum específico.
Web :: raspador para raspar o thread específico.
Contém o URL do índice do fórum. Permite o uso de um endereço IP se o DNS não resolver.
Www :: mecanize objeto usado internamente para navegar nas páginas da web.
Retorna 1 se ele efetuou login com sucesso.
$SA->login( username => $username, password => $password )Faça login em fóruns usando credenciais passadas.
$SA->reply_to_thread( thread_id => $thread_id, body => $body )Responder a um tópico específico
$SA->reply_to_post( post_id => $post_id, body => $body )Responder a uma postagem específica.
$SA->fetch_forumsRetorne um hashref representando o índice de fórum raspado.
$SA->fetch_threads( forum_id => $forum_id, pages => [1,2] )Retorne um hashref representando os threads raspados das páginas fornecidas do ID do fórum fornecido.
$SA->fetch_posts( thread_id => $forum_id, pages => [1,2] )Retorne um Hashref Representando as postagens raspadas das páginas fornecidas do ID do encadeamento fornecido.
ugexe
Esta biblioteca é um software livre, você pode redistribuí -lo e/ou modificá -lo nos mesmos termos que o próprio Perl.