via http://d.hatena.ne.jp/natu_n/20061108/1162984712 ISBN はハイフンの位置が地域によって異なる。 The International ISBN Agency にあるスクリプトから編集用のテーブルを生成してみた。 #!/user/bin/perl use strict; use warnings; use LWP::UserAgent; use YAML qw/Dump/; use JSON qw/objToJson/; my $resp = LWP::UserAgent->new->get( 'http://www.isbn-international.org/converter/ranges.js'); $resp->is_success or die; my $areas = {}; my $js = $resp->conten