猫に真珠 番外編
−−−文字コード取得スクリプト−−−
by Blue Sky Collection
Created 2001.02.04 Updated 2001.02.10
・2001.02.10 jcode使用版公開
Normal版（現在、公開中止中）
大野裕さんの「区点コード・シフトJIS番号から文字を作成してクリップボードに入れる perl スクリプト」を流用して、単純に逆バージョン（文字から文字コードを求める）を作成
jcode使用版（公開中）
(1) 大野裕さん提供の「jcode for 0213 を require して面区点番号を求めるスクリプト」を
変換部分に搭載 ( sub sjis2kuten )
(2) 区分け情報（第n水準、0208非漢字、0213非漢字）を付加
wakaba さんの拡張 jcode.pl
http://www11.freeweb.ne.jp/computer/wakaba/OTHER/JCODE_W_004.HTM
http://www11.freeweb.ne.jp/computer/wakaba/OTHER/jcode.pl.w005
を、スクリプトと同じディレクトリに入れておいてください。
※大野さんによると、jcode for 0213 は Mac ではうまく動かないとのことなので
当面 Windows 版のみの提供です。
Macなみなさん、ごめんなさい m(_ _)m
変換したい文字をクリップボードに入れておき、コマンドラインから
perl unpack0213_cb.pl コマンド
で、結果がクリップボードに入ります。
バッチファイルに書いておき、クリップボードにコピーしてはバッチファイルをばしばしダブルクリックするというのが、使いやすいかもしれません。
コマンド
| -k | 区点コード → (水準) 面-区-点 |
| -j | shift-jis |
| 省略 | 両方 → 面-区-点:shift-jis |
例: perl unpack0213_cb.pl -k
→ 拡張jcode使用版ソース for Windows Ver.1
→ 変換結果（おまけ）
→ 大野裕さんによる「コードから文字を取得するツール」 for Windows
→ 大野裕さんによる「コードから文字を取得するツール」 for Macintosh
→ 結城浩さんによるCGI版
→ 結城浩さんによるCGIのソースはこちらから
不明点がありましたら、 info@aozora.gr.jp までご連絡下さい。