ISBN変換

ISBNの変換はBusiness::ISBNでできるらしいのでインストールしてみた。けど、ググるとでてくるisbn_to_ean関数は見当たらないよ。変わったのかなー。試した結果を記しとこう。

桁数、ハイフン編集簡単。

[hetappi@lily work]$ perl -ne "eval"
use Business::ISBN
$isbn = Business::ISBN->new('4-87311-096-3')
print $isbn->is_valid, "\n"
1

print $isbn->as_string([]), "\n"
4873110963

print $isbn->as_isbn13->as_string, "\n"
978-4-8731-1096-7

xISBNで関連書籍のISBNをゲット。すごい。

print $isbn->xisbn, "\n"
4873110971

　から　　が！

バーコード画像を作成。

use IO::File
$file = IO::File->new('bc.png', 'w')
$file->write($isbn->png_barcode)
$file->close

[hetappi@lily work]$ file bc.png
bc.png: PNG image data, 102 x 50, 1-bit colormap, non-interlaced