Yahoo::Search(アダルトコンテンツを含む画像検索)
ここでは、画像検索でアダルトコンテンツを含む結果を返すように設定する方法を説明したいと思います。 通常設定では、Yahoo::Searchの検索結果に対してアダルトコンテンツフィルタがかけられています。 AllowAdultパラメータを1でYahoo::Search->Resultsを利用すると、このフィルタを無効化できます。
サンプル
以下にYahoo::Searchを使ったサンプルを示します。
#!/usr/bin/perl
use Yahoo::Search;
$appid = "testimpl";
$query = "xxx";
@results = Yahoo::Search->Results(Image => $query,
AppId => $appid,
AllowAdult => 1,
);
warn $@ if $@; # エラーがあったら出す
# 各結果を表示
foreach $r (@results) {
printf "Result: #%d\n", $r->I + 1,
printf "Url:%s\n", $r->Url;
printf "%s\n", $r->ClickUrl;
printf "Summary: %s\n", $r->Summary;
printf "Title: %s\n", $r->Title;
printf "In Cache: %s\n", $r->CacheUrl;
print "\n";
}
exit;
上記サンプルでは、Yahoo::Search->Resultsを使って検索を行っています。 解析結果は「@results」に入っています。 上記サンプルでは、「@results」に入っている各結果をforeachで表示しています。
