08/08/15 11:20:29
use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)";
use Encode;
use feature qw( :5.10 );
$|=1;
#----------------------------------
my $a;
my $c=1;
my @d;
for ($c=1;$c<=7;$c=$c+1){
print "$c"."文字目"; #←●１
#print "$c文字目"; #←●２
$a=<>;
chomp $a;
push (@d,$a);
}
say qq|\n|;
my @b;
say q|ソートの結果は、、、|;
@b=sort @d;
say qq|@b|;
---------------------------
↑これで、●１は動くのですが、●２にするとエラーになります。
実質的に１と２は同じもののはずなのに、なぜでしょうか？