SomethingAwful Forums

NAMA

Somethingwful :: Forums

RINGKASAN

 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' );

KETERANGAN

Mengikis dan memposting ke forum forums.somethingAwful.com.

Lihat /Contoh Folder.

INSTALASI

 # install everything needed by the SomethingAwful::Forums module + examples
cpanm --with-recommends git://github.com/ugexe/SomethingAwful--Forums.git

Objek

index_scraper

Web :: Scraper Scraper untuk Mengikis Halaman Indeks Forum.

forum_scraper

Web :: Scraper karena mengikis forum tertentu.

thread_scraper

Web :: Scraper untuk mengikis utas tertentu.

base_url

Berisi URL dari indeks forum. Memungkinkan penggunaan alamat IP jika DNS gagal menyelesaikannya.

mech

Www :: Mekanisasi objek yang digunakan secara internal untuk menavigasi halaman web.

logged_in

Mengembalikan 1 jika berhasil masuk.

Metode

login

 $SA->login( username => $username, password => $password )

Masuk ke forum menggunakan kredensial yang diteruskan.

Balas_to_thread

 $SA->reply_to_thread( thread_id => $thread_id, body => $body )

Balas ke utas tertentu

Balas_to_post

 $SA->reply_to_post( post_id => $post_id, body => $body )

Balas posting tertentu.

fetch_forums

 $SA->fetch_forums

Mengembalikan hashref yang mewakili indeks forum yang dikikis.

fetch_threads

 $SA->fetch_threads( forum_id => $forum_id, pages => [1,2] )

Mengembalikan hashref yang repsening utas yang dikikis dari halaman yang disediakan dari ID forum yang disediakan.

fetch_posts

 $SA->fetch_posts( thread_id => $forum_id, pages => [1,2] )

Mengembalikan hashref yang merepresentasikan postingan yang dikikis dari halaman yang disediakan dari ID utas yang disediakan.

PENGARANG

ugexe

LISENSI

Perpustakaan ini adalah perangkat lunak gratis, Anda dapat mendistribusikannya kembali dan/atau memodifikasinya dengan persyaratan yang sama dengan Perl itu sendiri.