08/08/15 12:02:07
>>79
>>82
use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)";
use Encode;
$c文字目 = 100;
print $c文字目,"\n";
$文字目 = 200;
print $文字目,"\n";