Perlで漢字コードの取得は？

J.Naka 1999/05/29(土) 18:34:56
Perlで、漢字の文字を文字コードとして取得する
方法はどんなものがあるでしょうか？

wwwkanji.htmにはコード間の変換アルゴリズムは書いて
ありますが、アルゴリズムに代入する漢字のコード自体は
文字列（文字）からどのように取得するのか、分かりません。
変換関数の ord では１ｂｙｔｅ分しか取得できないようです。

J.Naka [E-Mail] 1999/05/30(日) 11:53:33
　環境は、Win95です。(^^;宜しくね

なえ 1999/05/31(月) 08:49:11
$str = '文字列';

文字列→文字コード
@buf = unpack("C*", $str);
(@buf => 149,182,142,154,151,241(sjisの場合))

文字列→文字コード
$buf = unpack("C*", @buf);
($buf => '文字列')

なえ 1999/05/31(月) 08:50:46
あう、ちょっと間違えた。
$str = '文字列';

文字列→文字コード
@buf = unpack("C*", $str);
(@buf => 149,182,142,154,151,241(sjisの場合))

文字コード→文字列
$buf = unpack("C*", @buf);
($buf => '文字列')

なえ 1999/05/31(月) 08:52:11
ぎゃあ、また送信押しちゃった。
上の二つなしね(^_^;

$str = '文字列';

文字列→文字コード
@buf = unpack("C*", $str);
(@buf => 149,182,142,154,151,241(sjisの場合))

文字コード→文字列
$buf = pack("C*", @buf);
($buf => '文字列')

とほほ 1999/05/31(月) 22:00:03
jcode.plという超有名なライブラリに getcode()というサブルーチンがあります。

Kayuu 1999/06/01(火) 04:39:46
この質問で思い出したんですけど、私は学校で日本語の処理の仕方を
packでの変換の部分;(セミコロン)&jcode'convert(*value,'euc');
としろ、って言われてたんですけど&jcode以降が無くても日本語に変換できてしまいました。これは私がWin95上で試したからで、UNIXとか他のシステムを使っている人には通用しないんでしょうか？

J.Naka [E-Mail] 1999/06/01(火) 09:22:25
　なえさん、とほほさん、Kayuuさん。
レスをども、有り難う御座います。

　getcode()の存在知っていましたが、自作マニア
（=下手のよこっぴ）としては、nkfもどきをperlで
作ってみたいなと思ってたりします（＾＾；
　なえさんのレスを元に色々やってみようと思います。
　ありがとさんです＞なえさん

[上に] [前に] [次に]