ISBNをハイフン編集してJSONPで返すサービスを最新化してみた - natu_nの日記
Business::ISBNのデータを自分で更新出来たらなとモジュールを眺めるとデータはData.pmにあるらしい use Business::ISBN::Data 20081208; # now a separate module で、Data.pmでどのように持っているかというと %country_data = ( 0 => ['English speaking area' => ['00' => '19', '200' => '699', '7000' => '8499', '85000' => '89999', '900000' => '949999', '9500000' => '9999999'] ], 1 => ['English speaking area' => ['00' => '09', '100' => '399', '4000' => '5499', '55000
ISBN10/13 相互変換用コード - Liner Note on Hatena
使う人がいるかわからんが、図書系のWeb APIを使う場合、必須なので誰かいるかもしれん。ということで置いておく。 いまのところ、ASIN(Amazon管理コード)はISBN10と同義なのでISBN13からASINへの変換はこれで足りるけど、一応Amazon側は将来的な仕様変更の可能性も残しているので、変更になったらここにASIN変換用コードをたさんといかんな。 <?php function ISBN_9to10($isbn){ // 総和を求める for ($digit=0, $i=0; $i<9; $i++){ $digit += $isbn{$i} * (10 - $i); } // 11から総和を11で割った余りを引く（10の場合はX, 11の場合は0に） $digit = (11 - ($digit % 11)) % 11; if ($digit == 10){ $digit =
ISBN ハイフン編集用テーブル生成 - へたっぴ日記
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
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
作業中のもの - 毎日のメモ
