Jcode.pm

• 【名称】 Jcode.pm （じぇいこーどぴーえむ）
• 【バージョン】 0.83
• 【用途】 SJIS, EUC, JIS, Unicode の相互変換
• 【要件】 Perl5専用
• 【ページ】 総合解説：http://openlab.ring.gr.jp/Jcode/index-j.html
  
• 【ファイル】 http://www.ring.gr.jp/pub/lang/perl/CPAN/modules/by-module/Encode/DANKOGAI/

■ インストール

• (telnet) % perl -MJcode -e'print $Jcode::VERSION'
  → "0.83" のようにバージョンが表示されればＯＫ
• (telnet) % perldoc Jcode（← "J"は必ず大文字で）
  → ドキュメントが表示されればＯＫ
• (CGI) modchk.cgi を実行
  → Jcode が Exist = Yes ならばＯＫ

無ければ以下に従ってインストール：

○Ａ：コンパイラが使える環境の場合（未チェック）：
Jcode-0.83.tar.gz を tar xvzf 等で解凍後、
　　% perl Makefile.PL
　　% make
　　% make test
　　% make install

○Ｂ：コンパイラが使えない環境の場合：
　　1, Jcode-0.83.tar.gz をダウンロード
　　2, 解凍
　　3, それっぽい名前（libとか）のディレクトリを作る
　　4, そこに Jcode.pm と Jcode ディレクトリ以下をコピー

■ 使い方

• パスに -I スイッチで lib へのパスを加える：
  　　　　#!/usr/bin/perl -I../lib
  　　　　use Jcode;
  
• @INCにパスを追加して eval で use 宣言する：
  　　　　push(@INC, "../lib");
  　　　　eval "use Jcode;";

○ 構文

Jcode::convert(\$str[, $outcode, $incode, $option]);
→ $str を $outcode で指定された文字コードに変換。
　　旧来の方式だが jcode.pl を置き換える場合これが一番手っ取り早い。

$str = Jcode($str)->[sjis|euc|jis|utf8];
→ $str を指定された文字コードに変換（※コード名は必ず定数で指定）

$length = $Jcode->jlength();
→ 文字列の「日本語での」長さを返す。

以下、$j=Jcode->new($str[, $incode]); 後に使うもの：

$j->euc; ... EUCに変換
$j->jis; ... JISに変換
$j->sjis; ... SJISに変換
$j->ucs2; ... UCS2に変換
$j->utf8; ... UTF8に変換
$j->h2z([$keep_dakuten]); ... 半角カナを全角カナに直す
（※$keep_dakuten を立てると濁点が単一文字として残される（例）ｶﾞ→カ゛）
$j->tr($from, $to); ... 日本語(EUC)を含む文字の置換。$j->nmatch でマッチ件数を取り出せる。
$j->set($str[, $incode]) ... 文字列を$strに変更

■ Tips

● 何故 Jcode.pm か？

● コンパイルしないで入れた場合、非常に重い

　自分でインストールできない環境の場合は管理者に頼んでみましょう。「Jcode.pm 入れてくれないとサーバに負荷かけちゃうぞ」と脅せば納得してくれると思います（たぶん）。