Algowful :: foros
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 y publique en los foros.somethingful.com Foros.
Ver /Ejemplos carpeta.
# install everything needed by the SomethingAwful::Forums module + examples
cpanm --with-recommends git://github.com/ugexe/SomethingAwful--Forums.gitWeb :: Scraper Rasper para raspar la página de índice del foro.
Web :: raspador para raspar un foro específico.
Web :: Screper para raspar el hilo específico.
Contiene la URL del índice del foro. Permite el uso de una dirección IP si DNS no se resuelve.
Www :: Object de mecanizar utilizado internamente para navegar por páginas web.
Devuelve 1 si inició sesión con éxito.
$SA->login( username => $username, password => $password )Inicie sesión en foros utilizando credenciales aprobadas.
$SA->reply_to_thread( thread_id => $thread_id, body => $body )Responder a un hilo específico
$SA->reply_to_post( post_id => $post_id, body => $body )Responder a una publicación específica.
$SA->fetch_forumsDevuelve un hashref que representa el índice de foro raspado.
$SA->fetch_threads( forum_id => $forum_id, pages => [1,2] )Devuelve un hashref repsenting los hilos raspados de las páginas suministradas de la identificación del foro suministrada.
$SA->fetch_posts( thread_id => $forum_id, pages => [1,2] )Devuelve un hashref repsenting los postes raspados de las páginas suministradas de la identificación de subproceso suministrada.
Ugexe
Esta biblioteca es un software gratuito, puede redistribuirlo y/o modificarla en los mismos términos que PERL.