ISBN をアマゾンの本の画像にリンクする chalow プラグイン簡易版

  (ISBN を引数として渡す)
  ただし不完全．邦書は，これでほぼいけそう．洋書は第 2 引数に 01 (この数字以外にも) を指定する可能性．
  ちなみに著作権上の問題はグレーかも．

sub isbn_image {
    my ($k, $c) = @_;
    if ($c eq '') {
        $c = '09';
    }
    my $o = $k;
    $k =~ s/[^0-9a-zA-Z]//g;
    return qq(<img src="http://images-jp.amazon.com/images/P/$k.$c.MZZZZZZZ.jpg" />);
}