放送終了してたアニメをバッファリング無しで快適に見たくなったので、スクリプトを書いた。あんま真似しないでください。 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
![ゆーすけべー日記](https://cdn-ak-scissors.b.st-hatena.com/image/square/82ecf8466eeb4ea19e62e97ab7b10d1a2b98bd45/height=288;version=1;width=512/https%3A%2F%2Fyusukebe.com%2Ficons%2Fmyicon.png)