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

---

関連項目

なし