æ¾éçµäºãã¦ãã¢ãã¡ããããã¡ãªã³ã°ç¡ãã§å¿«é©ã«è¦ãããªã£ãã®ã§ãã¹ã¯ãªãããæ¸ãããããã¾çä¼¼ããªãã§ãã ããã use LWP::UserAgent; use URI::Escape qw/uri_unescape/; my $list_url = $ARGV[0] or die; my $url_list; my $ua = LWP::UserAgent->new( show_progress => 1 ); { my $res = $ua->get($list_url); die $res->status_line if $res->is_error; @$url_list = $res->decoded_content =~ m!class="page_item".+?href="(.+?)"!smg; @$url_list = reverse @$url_list; } { f
{{#tags}}- {{label}}
{{/tags}}