今さらだけどWeb::Scraperとかの勉強がてらに書いてみた。 #!/usr/bin/perl use strict; use warnings; use WWW::Mixi; use Web::Scraper; use Encode; use File::Basename; my $mixi = WWW::Mixi->new('username', 'password'); $mixi->login; my $res = $mixi->get('recent_voice.pl'); my $scraper = scraper { process '#voicePost input.#post_key', 'post_key' => '@value'; process '#voicePost input.#redirect', 'redirect' => '@value'; proce