という話が最近ありましたが、こういう話には WWW::Mechanize と Web::Scraper があればほとんどの用はたせるんじゃないかと思います。 use strict; use warnings; use WWW::Mechanize; use Web::Scraper; use Perl6::Say; use Encode; binmode STDOUT => ':utf8'; my $mech = WWW::Mechanize->new; $mech->agent_alias('Mac Mozilla'); $mech->get( URI->new('http://www.youtube.com/') ); $mech->submit_form( form_name => 'searchForm', fields => { search_query => Encode::d