「Tech」カテゴリーアーカイブ

ISBN10桁13桁変換Oracle PL/SQLパッケージ

去年作ったモノですが、気がつくと結構あちこちで使っていた。
手元ではLinux版のOracle9iで動作しています。

/* Oracle用 ISBNパッケージ
  10桁と13桁のISBNを相互に変換する。チェックデジットの計算もできる。
  http://www.isbn-center.jp/

 $Id: pkg_isbn.sql,v 1.5 2005/11/07 02:12:27 ymo Exp $
*/

CREATE OR REPLACE PACKAGE ISBN_PKG AS
/*
|| 入力されたISBNをチェックデジットを付けたりいろいろする。
|| 10桁を13桁に直したり、13桁を10桁に直すこともできる。
*/
 FUNCTION ISBN10(i_isbn IN varchar2) RETURN varchar2;
 FUNCTION ISBN13(i_isbn IN varchar2) RETURN varchar2;

/*
|| 入力されたISBNをチェックデジットを抜いた大事なところだけにする。
*/
 FUNCTION REGULATE_ISBN(i_isbn IN varchar2) RETURN varchar;

/*
|| 10桁版チェックデジットを計算して返す
||  入力は9文字、10文字、13文字のどれか
*/
 FUNCTION CHECK_DEGIT10( i_isbn IN varchar2) RETURN char;

/*
|| 13桁版ISBNのチェックデジットを計算して返す。
||  入力は9文字、10文字、13文字のどれか
*/
 FUNCTION CHECK_DEGIT13( i_isbn IN varchar2) RETURN char;

END ISBN_PKG;
/

----------------------------------------------------------
--    PACKAGE BODY
----------------------------------------------------------
CREATE OR REPLACE PACKAGE BODY ISBN_PKG AS

----------------------------------------------------------
-- F ISBN10
----------------------------------------------------------
FUNCTION ISBN10(i_isbn IN varchar2) RETURN varchar2
IS
   sRaw varchar2(9);
BEGIN
 sRaw := REGULATE_ISBN(i_isbn);
 RETURN sRaw || CHECK_DEGIT10(sRaw);
END;

----------------------------------------------------------
-- F ISBN13
----------------------------------------------------------
FUNCTION ISBN13(i_isbn IN varchar2) RETURN varchar2
IS
   sRaw varchar2(9);
BEGIN
 sRaw := REGULATE_ISBN(i_isbn);
 RETURN '978' || sRaw || CHECK_DEGIT13(sRaw);
END;

----------------------------------------------------------
-- F REGULATE_ISBN
----------------------------------------------------------
FUNCTION REGULATE_ISBN(i_isbn IN varchar2) RETURN varchar
IS
   buf varchar2(20);
   sRaw varchar2(9);
BEGIN
 buf := SUBSTRB(REPLACE(REPLACE(UPPER(TRIM(i_isbn)),'ISBN'),'-'),1,20);
 sRaw := TRIM(SUBSTRB(buf,1,9));

 IF LENGTH(buf) = 9 THEN
  sRaw := SUBSTRB(buf, 1, 9);
 END IF;
 IF LENGTH(buf) = 10 THEN
  sRaw := SUBSTRB(buf, 1, 9);
 END IF;
 IF LENGTH(buf) = 13 THEN
  sRaw := SUBSTRB(buf, 4, 9);
 END IF;

 RETURN sRaw;
END;

----------------------------------------------------------
-- F CHECK_DEGIT10
----------------------------------------------------------
FUNCTION CHECK_DEGIT10(i_isbn IN varchar2) RETURN char
IS
   vWeight PLS_INTEGER;
   vSum    PLS_INTEGER;
   vResult PLS_INTEGER;
   sRaw varchar2(9);
BEGIN
 sRaw := REGULATE_ISBN(i_isbn);
 vWeight := 10;
 vSum := 0;
 FOR i IN 1..LENGTH(sRaw)
 LOOP
   vSum := vSum + vWeight * to_number(SUBSTR(sRaw, i, 1));
   vWeight := vWeight - 1;
 END LOOP;
 vResult := 11 - (vSum MOD 11);
 if vResult = 10 THEN
   RETURN 'X';
 END IF;
 if vResult = 11 THEN
   RETURN '0';
 END IF;
 RETURN SUBSTR(to_char(vResult),1,1);

 EXCEPTION
  WHEN OTHERS THEN
    RETURN 'E';
END;

----------------------------------------------------------
-- F CHECK_DEGIT13
----------------------------------------------------------
FUNCTION CHECK_DEGIT13(i_isbn IN varchar2) RETURN char
IS
   vSum1 PLS_INTEGER;
   vSum2 PLS_INTEGER;
   vResult PLS_INTEGER;
   r char;
   sRaw varchar2(12);
BEGIN
 sRaw := '978' || REGULATE_ISBN(i_isbn);

 vSum1 := 0;
 vSum2 := 0;

 FOR i IN 1..LENGTH(sRaw)
 LOOP
   IF MOD(i,2) = 1 THEN
    vSum1 := vSum1 + to_number(SUBSTR(sRaw, i, 1));
   ELSE
    vSum2 := vSum2 + to_number(SUBSTR(sRaw, i, 1));
   END IF;
 END LOOP;

 vResult := vSum1 + (vSum2 * 3);
 vResult := 10 - to_number(SUBSTR(to_char(vResult),length(to_char(vResult)),1));
 IF vResult > 9 THEN
   RETURN '0';
 ELSE
   RETURN SUBSTR(to_char(vResult),1,1);
 END IF;

 EXCEPTION
  WHEN OTHERS THEN
    RETURN 'E';
END;

END ISBN_PKG;
/


/**
SELECT 'Answer => 4798108545: '||ISBN_PKG.ISBN10('479810854') FROM DUAL;
SELECT 'Answer => 9784798108544: '||ISBN_PKG.ISBN13('4798108545') FROM DUAL;

SELECT 'Answer => 4949999087: '|| ISBN_PKG.ISBN10('494999908') FROM DUAL;
SELECT 'Answer => 9784949999083: ' || ISBN_PKG.ISBN13('494999908') FROM DUAL;


SELECT ISBN_PKG.CHECK_DEGIT10('4798108545') FROM DUAL;
SELECT ISBN_PKG.CHECK_DEGIT10('494999908') FROM DUAL;
SELECT ISBN_PKG.CHECK_DEGIT10('ISBN4-9499-9908') FROM DUAL;
SELECT ISBN_PKG.CHECK_DEGIT10('9784883810246') FROM DUAL;
SELECT ISBN_PKG.CHECK_DEGIT10('9784883810161') FROM DUAL;
SELECT ISBN_PKG.CHECK_DEGIT10('9784431711438') FROM DUAL;

SELECT ISBN_PKG.CHECK_DEGIT13('4798108545') FROM DUAL;
SELECT ISBN_PKG.CHECK_DEGIT13('494999908') FROM DUAL;
SELECT ISBN_PKG.CHECK_DEGIT13('ISBN4-9499-9908') FROM DUAL;
*/

Gist:239168

Pythonでモジュラス10ウエイト3とisbn10to13

Guidelines For Shipping Container Labeling http://www.bisg.org/docs/shipping_label_guidelines_09-2005.pdf
こんなのをやるにあたって、ちゃんとしたモジュラス10ウエイト3のチェックデジットを計算する必要があったので作った。

ついでに、isbnlib.pyよりもシンプルに10桁ISBNを13桁にする関数も。

Python版

#!/usr/bin/env python
# -*- coding: utf-8 -*-
"""モジュラス10ウエイト3とISBNのチェックデジット計算。Python版。
"""
def m10w31(code):
    """モジュラス10ウエイト3チェックデジットの計算
    """
    s = list(str(code))
    s.reverse()
    sum = 0

    w = 3
    for i in s:
        sum = sum + (int(i) * w)
        if w == 3: w = 1
        else: w = 3

    d = sum % 10
    if d<>0: d = 10 - d
    return str(d)

def isbn10to13(isbn10):
    """10桁ISBNを13桁ISBNに変換
    """
    s = '978'+isbn10[:9]
    return s+m10w31(s)

def ssccBarCode(isbn13):
    """ SSCC bar code
     See, http://www.bisg.org/docs/shipping_label_guidelines_09-2005.pdf
    """
    PRFX1='01'
    PRFX2='1'
    code = isbn13[:12]
    return "(%s)%s %s-%s" % (PRFX1, PRFX2, code, m10w31(PRFX2+code))

if __name__=='__main__':
    data = ('4770025364','4770023230','4770015419','4881359290','4883731626','4873112109')
    for isbn10 in data:
         isbn13 = isbn10to13(isbn10)
         print " %s -> %s -> %s" % (isbn10,isbn13,ssccBarCode(isbn13))

Delphi版は関数だけ

function m10w31(code: string): integer;
/**
 Delphi版　モジュラス１０ウエィト３のチェックデジット計算。
*/
var
  i,w,sum: integer;
begin
  w := 3;
  sum := 0;
  for i := length(code) downto 1 do
  begin
    sum := sum + strtoint(code[i]) * w;
    if w = 3 then w := 1
    else w := 3;
  end;
  Result := sum mod 10;
  if Result<>0 then Result := 10 - Result;
end;

最新版はgithubをどうぞ。
Python版、Delphi版

難しすぎるインターネット

今日は朝から谷根千辺りのIT担当業務が多くて自転車でウロウロする。

しかし、むずかしいね。インターネット。

メールを送受信する環境作りが特に難しい。

迷惑メール対策のせいでややこしい制限が増えた。

Outbound Port 25 Blockingとか、SMTP認証とか言われても、わかる人がどれだけいるか。

僕は技術屋だから、そういったことが必要なことは理解できるけれど、今日行った三ヶ所の人たちに説明する根気はないな。

できればWEBメールを使ってくれって感じだけれど、これも既存のメールアーカイブが移行しにくかったりすると、もう、試行停止（ママ）してしまう。説明しても聞き流されるだけだし。

この溝は良くない気がする。

WebFaction blog / Control panel demo

cherrypy-usersより。http://blog.webfaction.com/control-panel-demo

The one-click installer already supports all major tools, including Rails, WordPress, Djano, TurboGears, CherryPy, Plone, Trac and Subversion, but also lightweight tools such as static HTML, CGI or PHP.

すごいなあ。カッコいいなあ。使いたいツールがほとんど入ってる。リンク先ブログのscreencast demoは必見。デモにはなかったけれど、データベース関連もコントロールパネルから制御できるみたい。1000円/月ぐらいから借りられるみたい。アカウントとってみたい。

http://www.webfaction.com/

はてな認証API

あ、これは重要。エポックになったりして。アカウント登録からヘルプやサポートまですべてが日本語ネイティブだってことが一番重要。やっと使える認証サービスがでた感じ。早速なんかやってみよう。

今まで、常々小っちゃいサイトをいろいろ作っている僕にとって、認証部分は本当に面倒くさい。やりたくない。外部にやって欲しい。専用サービスを作るか。でも、使う人（普通の人）は、また覚えておくユーザIDとパスワードが増える。困る。

って感じだったけれど、この認証APIを使えば、例えば特定のユーザにコンテンツ（日記や画像）をはてなにエントリしてもらって、それをRSS経由で集めて、サイトにまとめ上げるってこともできる（たいていの場合OpenIDでいいような気はするんだけれど。あれっ、はてなが対応すればいいだけかも？どっちも流行ればいいんだけどなあ）。

僕がちゃんと使えるようなら、僕の管理する谷根千辺りのサイトのアカウント管理ははてな認証APIでいくな。たぶん。

もう出た、http://d.hatena.ne.jp/hyuki/20060424

しばらく続くのか。

あの人は今 http://www.projectliberty.org/jp/

んー、なんか、ゆるい。