Perlで書く 

Perlで書く 2008.02.17 Vol.203

=====================================================================
Perlで書く 2008.02.17 Vol.203
[WAZA]ISBNの10桁13桁変換
http://www2u.biglobe.ne.jp/~MAS/perl/
=====================================================================
●ISBNの10桁13桁変換

　Business::ISBNモジュールを使います。

use strict;
use Business::ISBN;

my $code = '4873111269'; # 13桁の 9784873111261 でも大丈夫です
my $isbn = Business::ISBN->new($code);

print $isbn->as_isbn10->as_string, "\n"; # 4-87311-126-9
print $isbn->as_isbn13->as_string, "\n"; # 978-4-87311-126-1

print $isbn->as_isbn10->as_string([]), "\n"; # 4873111269
print $isbn->as_isbn13->as_string([]), "\n"; # 9784873111261


●関連項目

  なし

=====================================================================
■雑記

　特にありません。

=====================================================================
Perlで書く(マガジンID：0000109251) 配信数：924
発行者：MAS
本メールマガジンに関するご意見・お問い合わせは
t-masuda@mvd.biglobe.ne.jp までお寄せ下さい。

解除 http://www2u.biglobe.ne.jp/~MAS/perl/magazine.html
検索 http://www2u.biglobe.ne.jp/~MAS/perl/search/index.html
バックナンバー http://archive.mag2.com/0000109251/index.html
RSS  http://archive.mag2.com/0000109251/rss10.xml

本メールマガジンは「まぐまぐ」 http://www.mag2.com/ を利用して発行
しています。
=====================================================================

• 前の記事
• 最新の記事
• 次の記事

規約に同意して

登録した方には、まぐまぐの公式メルマガ（無料）をお届けします。