WWW::Livedoor - LWP::UserAgent module for Livedoor.com
use HTTP::Request::Common; use WWW::Livedoor; use strict; ## Login livedoor.com using livedoor_id & password my $livedoor= WWW::Livedoor->new('[livedoor_id]', '[password]'); $livedoor->login; ## Getting Any Logined Page my $res = $livedoor->get('http://frepa.livedoor.com'); $res->content; ## result ## POST Any Query And Get the Result my @form = ('k' => 'search', 'q' => 'test'); my $req = &HTTP::Request::Common::POST("http://search.livedoor.com/search/",[@form]); my $res = $livedoor->request($req); $res->content; ## result
WWW::Livedoor uses LWP::RobotUA to scrape livedoor.com This provide login method, get and put method, and some parsing method for user who create livedoor spider.
WWW::Livedoor is written by http://satoru.net <firstname.lastname@example.org>
I'd like to thank the following for finding bugs and offering suggestions:
WWW::Mixi TSUKAMOTO Makio (email@example.com)
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.