ISBN-10 の最後の一桁(チェックディジット)の計算方法
2016-07-11-1
[Programming][Perl]
自分用メモ。
ISBN-10 は旧規格の ISBN。
アマゾンで紙書籍の ASIN として現在も使用されている。
その ISBN-10 の最後の一桁(検査数字・チェックディジット)の計算方法。
Perl のワンライナー。
ISBN-10 は旧規格の ISBN。
アマゾンで紙書籍の ASIN として現在も使用されている。
その ISBN-10 の最後の一桁(検査数字・チェックディジット)の計算方法。
- ISBN (International Standard Book Numbering)
http://www.infonet.co.jp/ueyama/ip/glossary/isbn.html - ISBN - Wikipedia
https://ja.wikipedia.org/wiki/ISBN
Perl のワンライナー。
echo "410211341\n410138341\n410211401" | perl -F"" -anle '$s=0;$s+=(10-$_)*$F[$_]for(0..8);$s=(11-$s%11)%11;$s="X"if$s==10;print$_.$s' 410211341X 4101383413 4102114017
関連記事
- JANコードについての基礎的なことがらのメモ[2011-03-08-1]
- ASIN(ISBN)のチェック[2006-08-28-1]
- ワンライナーじゃない Perl 実装メモ。