ISBN をアマゾンの URL に変換する chalow プラグイン

  (ISBN を引数として渡す)

sub amazon {
    my ($k) = @_;
    my $o = $k;
    $k =~ s/[^0-9a-zA-Z]//g;
    return qq(<a href="http://www.amazon.co.jp/o/ASIN/$k/">$o</a>);
}