Etwasawful :: Foren
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' );Kratzen Sie und posten Sie in die Forums.somethingAwful.com -Foren.
Siehe /Beispiel -Ordner.
# install everything needed by the SomethingAwful::Forums module + examples
cpanm --with-recommends git://github.com/ugexe/SomethingAwful--Forums.gitWeb :: Scraper -Schaber für die Indexseite des Forums.
Web :: Schaber für das Abkratzen eines bestimmten Forums.
Web :: Schaber für das Abkratzen spezifischer Thread.
Enthält die URL des Forumsindex. Ermöglicht die Verwendung einer IP -Adresse, wenn DNS nicht auflöst.
Www :: Mechanize Objekt, das intern verwendet wird, um Webseiten zu navigieren.
Gibt 1 zurück, wenn es erfolgreich angemeldet ist.
$SA->login( username => $username, password => $password )Melden Sie sich in Foren mit übergaberen Anmeldeinformationen an.
$SA->reply_to_thread( thread_id => $thread_id, body => $body )Antwort auf einen bestimmten Thread
$SA->reply_to_post( post_id => $post_id, body => $body )Antwort auf einen bestimmten Beitrag.
$SA->fetch_forumsReturn a Hashref, das den abgekratzten Forum -Index darstellt.
$SA->fetch_threads( forum_id => $forum_id, pages => [1,2] )Return a Hashref, die die von den gelieferten Seiten der gelieferten Forum -ID abgekratzten Threads abzugeben.
$SA->fetch_posts( thread_id => $forum_id, pages => [1,2] )Geben Sie einen Hashref zurück, der die von den versorgten Seiten der mitgelieferten Thread -ID abgekratzten Posts abgesenkt hat.
ugexe
Diese Bibliothek ist kostenlose Software. Sie können sie neu verteilen und/oder unter den gleichen Bedingungen wie Perl selbst ändern.