自作でWikipediaの検索利用スクリプトを作る

DBCLS

　いろいろ調べましたが、perlのモジュールで、Wikipediaの検索機能を外部から利用するようなものは見つけられなかったので、適当に自作することにしました。
　まず、Wikipediaの検索機能ですが、

"http://ja.wikipedia.org/w/index.php?search="

の後ろに検索したいワードをつけて、getすれば、自動的にwikipediaのPHPプログラムが起動して、検索結果のWebページを返却してくれるようでした。なのでこれを利用して、perlスクリプト内で、検索したい単語"$line"について、

$wikiSearch = 'http://ja.wikipedia.org/w/index.php?search='; #検索用テンプレート
$URL = $wikiSearch . $line;
$response = $userAgent->get($URL);

とやって、検索結果のページを取得することができました。
　その後、検索結果ページの中から、classが"mw-search-results"であるタグを抽出し、そこの単語を抜き出して、改めてWikipediaに対してクエリを投げることで、検索結果のページに飛ぶことができるようにしました。
　今回、「ヌクレオ」という単語を検索して、「ヌクレオチド」というページを取得することができることまで確認しました。上手くいったようです。次は、得られたWebページの内容をもとに、生物用語かどうか確かめる部分を作成していきたいと思っています。