Perlコーディング初心者質問スレ Part 58

Perlコーディング初心 ..

32:nobodyさん
08/08/08 16:57:50
>>27
use Jcode;

my $c = 9250; #JISコードの"あ"
print Jcode->new(pack('A3n', "\e\$B", $c), "jis")->utf8, "\n";
print Jcode->new('あ',"jis")->utf8, "\n";

# ぶっちゃけJISではencoding使わないとスクリプトなんて書いてられないんだが、
# 言及してないところを見ると、後釣りなんだろうか。

次ページ

続きを表示

1を表示