ISBN を書誌情報に変換する Perl script

http://www.snowelm.com/~t/doc/tips/20020411.ja.htmlより

新しい研究室で本の整理をしたついでに、ISBN をコンピュータに入力した。さて、これをどうやって書誌情報に変換するか。業者だとおっきなデータベースがあるのだろうけど、一般人は直接さわることはできない。
ということでオンライン書店に頼ることにする。さしあたり使いやすいのは amazon.co.jp である。和書も洋書も扱えるからである。とはいえ古い本やマイナーな本などは引けないものもあるのだが、まあいいであろう。
ちうわけで perl の出番である。例によって例のごとくきたない正規表現で Amazon の吐く HTML から書誌情報を取り出している。しかし、そのへんの本の番号を入力するだけでいろいろな情報がとれるのは面白い。
念のため、あんまり乱用する (可能な全 ISBN を試すとか……) のはやめてください。amazon の負荷があがります。というかほとんど DoS 攻撃になってしまう……。必要な分だけにしてあげてください。


※表示がうまくいかないのでPerl Scriptは削除しました（5/10）