Что -то напротив :: Форумы
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' );Скраппировать и отправить на форумы.
Смотрите /примеры папка.
# install everything needed by the SomethingAwful::Forums module + examples
cpanm --with-recommends git://github.com/ugexe/SomethingAwful--Forums.gitWeb :: Scraper Scraper для страницы индекса Forum Forum.
Web :: scraper для соскоба конкретного форума.
Web :: scraper для соскабливания конкретного потока.
Содержит URL -адрес индекса форума. Позволяет использовать IP -адрес, если DNS не разрешается.
Www :: Mechanize объект, используемый внутри, для навигации по веб -страницам.
Возвращает 1, если он успешно вошел в систему.
$SA->login( username => $username, password => $password )Войдите на форумы, используя прошедшие учетные данные.
$SA->reply_to_thread( thread_id => $thread_id, body => $body )Ответьте на определенную ветку
$SA->reply_to_post( post_id => $post_id, body => $body )Ответьте на конкретный пост.
$SA->fetch_forumsВерните хэшреф, представляющий индекс соскобного форума.
$SA->fetch_threads( forum_id => $forum_id, pages => [1,2] )Верните хэшреф, представляющую потоки, соскобавшиеся со поставленных страниц предоставленного идентификатора форума.
$SA->fetch_posts( thread_id => $forum_id, pages => [1,2] )Верните хэшреф, представляющий посты, соскобленные со поставленных страниц прилагаемого идентификатора потока.
Ugexe
Эта библиотека является свободным программным обеспечением, вы можете перераспределить его и/или изменить ее в соответствии с теми же условиями, что и сам Perl.