$bは表示されない？？

質問

########
@a=(1,2,3,4,5,6,7);
foreach $b (@a[0..3]){
$b++;
}
print @a;
print "\n";
print $b;
########
とした時に、$bが表示されません。なぜなのでしょうか？？５が表示されるのかなと思っていたのですが・・・
でも
########
@a=(1,2,3,4,5,6,7);
for(@a[0..3]){
$_++;
}
print @a;
print "\n";
print $_;
########
とすれば、$_は表示されます。
私はまだPerlもプログラミングも初心者なので、誤解してるところがあったらご指摘ください。
よろしくお願いしますｍ(_ _)ｍ

回答No.2

natsuki_tk · ベストアンサー

ループスコープ

for：ループ変数は設定された最後の値を保持
foreach:変数はループより前に持っていた値に戻る

my $i=30;
for ($i<0; $i<10; $i++){}
print $i;
→$iは10と表示

my $i=30;
foreach $i (1..10){}
print $i;
→$iは30と表示

forとforeachは同じものとみなされますが(実際そうですが)、
この一点だけ扱いが異なっています(他にもあるかもしれませんが(^^；)

今回$bが無かったのは、foreach前に$bが無かったからかと。
次のforの例では、for使ってますので、最後の値が残るわけです。

いずれにせよ、ループ変数をそのまま使うようにプログラミングするのは
バグの元ですので、明示的に他の変数に格納してやるといいと思いますよ。
(use strict;していれば事前に警告がでるので回避できるとも思います)

#手っ取り早くワンライナー
perl -le 'my $i=30; for($i=0; $i<10; $i++){} print $i'
perl -le 'my $i=30; foreach(1..10){} print $i'

お礼

ありがとうございました！またお願いします♪

回答No.1

noname#25358

お使いの Perl がどんなバージョンかは分かりませんが、ActivePerl の場合は後者も print $_; は働かないようです。

　この原因として考えられるのは foreach の仕様です。
　foreach の $b の中に入っているのは、実は値ではなくリファレンスだということは、（何となくかもしれませんが）お分かりかと思います。
　ゆえに、値を書き変えると配列の値が更新されてしまうわけですよね。

　で、インタプリタの開発者が、「ループを抜けたあとで $b に余計な値を入れて配列の値が変わってしまわないように」との考えで、リファレンス化を解除しているのかもしれません。
　実際、その方が利便性がありそうですし。

　rousei さんがお使いの Perl で後者が動いたのは、Perl のバグか、でなければ「$_ は最後に省略された変数である」というコンセプトに基づく仕様であると思われます。
　ActivePerl はラクダの人が開発したわけじゃないので、そのへん、コンセプトより利便性を重視していると考えられるわけです。

お礼

ありがとうございます＾＾
またよろしくおねがいします