TSperl 発言

毎度です。

#!/cygdrive/c/Perl5.8/bin/perl
##!/usr/bin/perl
use utf8;
my $str = "日本語";# UTF-8で書く
print "$str: ",length $str,"\n";
foreach (split //, $str){
	print sprintf("%04X\x20", ord);
}

のようなサンプルを動かすと、

$ ./utf8test.pl
Wide character in print at ./utf8test.pl line 5.
日本語: 3
65E5 672C 8A9E 

のように出力されるのですが、Wide character in printのメッセージはなぜ出
るのでしょうか。これはエラー?

5.8.7のActivePerl or CygwinのPerlどちらも同じ結果になります。

藤岡 和夫
kazuf@...
TS Networkのために http://homepage1.nifty.com/kazuf/