Perlについての質問箱 15箱目
■ このスレッドは過去ログ倉庫に格納されています
0349デフォルトの名無しさん
05/02/04 17:07:02だよね?だよね?
俺もソースで
unpack("C", $string)
で返ってくる文字を一文字ずつチェックしてみたんだけど、
やっぱりおかしいんだよね。
if ($cn >= 129 && $cn <= 159 || $cn >= 224 && $cn <= 252)
の部分で文字コードを判別しているんだけど、
この部分をEUCに置き換えたいんだけど、
その文字コードをどうやって調べたらよいのか・・・
ちなみに、
$str = "コンピュータを使用している";
&jcode::convert(\$str,sjis);
$a = ksubstr($str,0,5);
とか
$str = "コンピュータを使用している";
&jcode::convert(\$str,jis)
$a = ksubstr($str,0,5);
とか挿入して判別させてみたんだけどとんでもない事になったよ。
■ このスレッドは過去ログ倉庫に格納されています