Perlについての質問箱 45箱目
レス数が900を超えています。1000を超えると表示できなくなるよ。
0911デフォルトの名無しさん
2011/02/10(木) 04:33:52my ($x, $y, @array);
for (0 .. 1) {
$array[$_] = $_;
$array[$_] ? ($x = 1) : ($x = 0);#期待通りの結果
$array[$_] ? $y = 1 : $y = 0; #期待と異なる結果
print "array = $array[$_], x = $x, y = $y\n";
}
結果
array = 0, x = 0, y = 0
array = 1, x = 1, y = 0
レス数が900を超えています。1000を超えると表示できなくなるよ。