おっぱい画像ダウンロードを実際にやってみた

ゆーすけべー日記が気になったのでやってみた！
Perlが動くことが前提で書いていきます。
手順として

①Bing APIのApplication ID(AppID)を作成

②参考サイトのソースをコピー

③ソースにAppID記述

④実行

⑤足りないライブラリ取得(cpanでいけます）

④と⑤を繰り返し

これで完了！


私の環境が悪いのかわからないですが、日本語でうまく検索できませんでした。
（res変数をダンプしてみると、クエリに何も記述されていない状態でした）
なのでソースの一部を変更！

my $search_word = encode('utf-8',"おっぱい");
for (my $page_count = 0; $page_count < 2; $page_count++ ) {
    my $offset = $page_count * 50;
    $uri->query_form(
        AppId          => $appid,         ←AppID
        Version        => '2.2',
        Markert        => 'ja-JP',
        Sources        => 'Image',
        'Image.Count'  => 50,
        'Image.Offset' => $offset,
        Adult          => 'off',
        Query          => $search_word    ←検索ワード
    );
       ：
      省略
       ：
#    $page_count++;       ←コメントまたは削除
}

これでちゃんとおっぱい画像が取得できました。
また無限ループになっているので、for文などに直したほうがいいかもしれません。


まだ使ってるライブラリーや処理の詳細まで見てないけど、おもしろそうなのでちゃんと理解しておこうかな。

参考

ゆーすけべー日記
Coroを使って並行処理 - JPerl Advent Calendar 2009
http://blog.thingslabo.com/archives/000006.html
cpanの使い方の整理 – taichino.com
第19回 使ってみよう！ Bing API──jQuery編（1）：使ってみよう！ Bing API/SDK｜gihyo.jp … 技術評論社
Wide character in print at ...