- 338 名前：デフォルトの名無しさん mailto:sage [2010/05/12(水) 16:22:45 ]
- #!/usr/bin/perl
use strict;
use utf8;
use Encode;
use Encode::Guess;
my $cp = "4FAE"; # 「侮」のコードポイント
my $packed = pack("U", hex($cp));
print $packed, "\n";
ありがとうできました。でもwarningがでます。
$ perl cptest2.pl
Wide character in print at cptest2.pl line 9.
侮
$
