PHPでISBNコードからNDCコードを求める

(1/1)
私は乱読派だが、いちいち本を買っていると置く場所が無くなるし、家計に厳しい。このため、ほとんどの本は図書館から借りて読んでいる(気に入った本は買う)。いちおう、読んだ本の記録は残しているのだが、これをどう分類するか考えた末に、図書館と同じ分類法(NDC;日本十進分類法)を利用することに決めた。
図書館で借りた本は背表紙に NDC コードが貼ってあるからいいのだが、買った本は調べないとわからない。
そこで、前回紹介した ISBN コードから NDC コードを求めることはできないか考え、つくったのが今回紹介するプログラムである。

サンプル・プログラム

このプログラムは国立国会図書館の総合目録ネットワークシステムを呼び出している。

NDCコード

NDC(Nippon Decimal Classification)は日本十進分類法とも呼ばれ、図書館で書籍を分類するために使われている 10進数 3 桁の数字である。

書籍の出版時にはISBN コードは付与されるが、NDC コードは付与されない。あくまで図書館側が分類して付与するコードである。また、ISBN コードと NDC コードの正しい対応表(データベース)というものも存在しない。
そこで今回は、国立国会図書館の総合目録ネットワークシステムを呼び出し、ISBN コードから NDC コードを求める

サンプル・プログラムの解説:初期値

0020: //利用間隔(秒;相手システムに負荷をかけないために間隔を開ける)
0021: define('INTERVAL', 10);

総合目録ネットワークシステムに負荷をかけないため、INTERVAL で定義した間隔より短い間隔でプログラムが実行されないようにしている。

サンプル・プログラムの解説:変換処理

0151: /**
0152:  * NDC番号を取り出す
0153:  * @param string $isbn ISBN番号
0154:  * @return NDC番号/FALSE=取得失敗
0155: */
0156: function isbn2ndc($isbn) {
0157:     //総合目録ネットワークシステムへ問い合わせ
0158:     $url = "http://iss.ndl.go.jp/books?rft.isbn={$isbn}";
0159:     if (($fp = fopen($url, 'r')) == FALSE)  return FALSE;
0160:     $link = '';
0161:     while (! feof($fp)) {
0162:         $res = trim(fgets($fp));
0163:         if (preg_match("/<div class=\"item_summarywrapper\">/iu", $res) > 0) {
0164:             while (! feof($fp)) {
0165:                 $res = trim(fgets($fp));
0166:                 if (preg_match("/<a href=\"(http\:\/\/iss\.ndl\.go\.jp\/books\/[a-zA-Z0-9\-]+)\">/iu", $res$arr) > 0) {
0167:                     $link = $arr[1];
0168:                     break;
0169:                 }
0170:             }
0171:         }
0172:     }
0173:     fclose($fp);
0174: 
0175:     //NDC取得シーケンス
0176:     if (($fp = fopen($link, 'r')) == FALSE)     return FALSE;
0177:     $ndc = FALSE;
0178:     while (! feof($fp)) {
0179:         $res = trim(fgets($fp));
0180:         if (preg_match("/<th scope=\"row\">NDC/iu", $res) > 0) {
0181:             while (! feof($fp)) {
0182:                 $res = trim(fgets($fp));
0183:                 if (preg_match("/<td>([0-9\.]+).+<\/td>/iu", $res$arr) > 0) {
0184:                     $ndc = $arr[1];
0185:                     break;
0186:                 }
0187:             }
0188:         }
0189:     }
0190:     fclose($fp);
0191: 
0192:     return $ndc;
0193: }

ISBN番号から NDC番号への変換は、総合目録ネットワークシステムの検索結果をスクレイピングしているだけである。

総合目録ネットワークシステムのアウトプットは変更になるかもしれないので、この部分は適宜変更してほしい。

サンプル・プログラムの解説:分類名の取得

0195: /**
0196:  * NDC番号から分類名を取り出す
0197:  * @param string $ndc NDC番号
0198:  * @return 分類名/FALSE=取得失敗
0199: */
0200: function ndc2class($ndc) {
0201:     $n2 = substr($ndc, 0, 2) . '0';       //NDCの上2桁+'0'
0202:     $n3 = substr($ndc, 0, 3);            //NDCの上3桁
0203:     if (preg_match('/^[0-9]{3}$/', $n3) != 1) return FALSE;
0204: 
0205:     $res = FALSE;
0206:     if (($fp = fopen('NDC9.csv', 'r')) == FALSE)   return FALSE;
0207:     while (! feof($fp)) {
0208:         $arr = fgetcsv($fp, 1000, "\t");
0209:         if ($arr[0] == $n2) {
0210:             $res = $arr[1] . ' - ';
0211:         } else if ($arr[0] == $n3) {
0212:             $res .= $arr[1];
0213:             break;
0214:         }
0215:     }
0216:     return $res;
0217: }

NDC コードという数字だけでは分類名が分かりにくいので、NDC の第3 次区分表(第9版)を外部ファイル "NDC9.csv" に持たせ、求めた NDC から引くようにした。

おまけの話

分類したかった書籍約 900 冊のうち、ISBN があるのに総合目録ネットワークシステムの検索に引っかからなかった書籍が 2 冊あった。また、検索にはかかるが、NDC コードが登録されていないものが 4 冊あった。そもそも ISBN コードがない自費出版のような書籍が 1 冊あった。

このプログラムは、入力された ISBN コードのチェック(アルゴリズムは「PHP で ISBN コードを ASIN コードに変換する」で用いたものと同じ)や、NDC が検出できなかった時にエラーを返すようにしてある。

国立国会図書館には、少なくとも日本国内で出版された全ての書籍がデータベース化されていると信じていたのだが、100%完璧ではないのだということを知らされた。分類作業の苦労が偲ばれる。

質疑応答

【質問】

お疲れ様です。
「isbn2ndc」のサンプルプログラムを実行すると「Sory, system error occured !」とエラーが返されますが、解決手段はごさいますでしょうか?
お手数をお掛けしますが、どうぞよろしくお願いいたします。


【回答】

サーバのタイムゾーン設定によるエラーでした。
プログラムを修正しましたのでお試しください。

参考サイト

(この項おわり)
header