PerlでYahoo!Web検索サービス：1～1000まで結果を取得する:Geekなぺーじ

前述した例では、検索結果のうちの最初の10個だけを取得していました。 ここでは、1～1000番目まで全部の検索結果を取得する方法を説明したいと思います。 サンプル 以下にYahoo! Web Search Serviceを使って1～1000番までの検索結果を取得する方法を説明したいと思います。 #!/usr/bin/perl use LWP::Simple; use XML::Simple; # for warning "Wide character in print at ..." binmode(STDOUT, ":utf8"); $appid = "testimpl"; $query = "geek"; $start = 1; $results = 50; for ($i=0; $i<20; $i++) { if ($start + $results - 1 >= 1000) { i