たつをの ChangeLog : 2016-07-11

自分用メモ。
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 実装メモ。