ã¨ãã話ãæè¿ããã¾ãããããããã話ã«ã¯ 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
{{#tags}}- {{label}}
{{/tags}}