前回のエントリに続き、こんどはフラグを取る話でも。。。 フラグ付き状態で、出力すると Wide character ほげほげ… と叱られます。というわけで、さっそくフラグを取ります。 encode()で取る(バイトコードに変換する)。 #!usr/bin/perl use strict; use warnings; use utf8; use Encode; my $str = "あいう"; #utf-8フラグ付き print encode('utf-8', $str), "\n"; #utf-8フラグを取って出力 binmodeで取る(バイトコードに変換する)。 #!usr/bin/perl use strict; use warnings; use utf8; binmode STDOUT, ':utf8'; my $str = "あいう"; print "$str\n"; とってもコ