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