use utf8; use Encode;
binmode (STDIN,":utf8"); binmode (STDOUT,":utf8");その他のファイルハンドル(ログをファイルに出力する場合など)も同様の措置が必要。
if (!open (LOG, "output.log")) { return err; } binmode (LOG, ":utf8");
if ($ENV{'REQUEST_METHOD'} =~ /^GET$/i) { $buffer = $ENV{'QUERY_STRING'}; } elsif ($ENV{'REQUEST_METHOD'} =~ /^POST$/i) { read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } $buffer = decode ('utf8',$buffer);
my (@pairs) = split (/&/, $buffer);