perl:ループのカウンタ変数の値を保持したい。

質問

While文のループのなかにfor文でループをまわしているスクリプトなのですが、
forの中でカウンタ変数をつくり、ループ回数を計測しております。
またforの中である条件を満たした際に、lastでforを抜け、引き続きWhileのループを継続するという処理をしております。

$i=0;
While(○○){
処理1
　　　for(××){
処理2
$i++;
　　　　 if($i >=100){
　処理3
　　　　　　last;
}
}
}

ここで、一度for文のif文で一度forループを抜け、Whileでループをし、またforループに突入した際に、前回forループでカウントした$iの値を保持したまま、そのつづきから$iのカウンタを動作させたいのですが、$iの値はforループを抜けるとリセットしてしまいます。

このような場合、どうすれば$iの値を保持できますでしょうか。
お詳しい方、宜しくお願い致します。

※ネストがうまく表現できず、みずらくてスミマセン。

回答No.3

maiko0318 · ベストアンサー

$iに関するところを全部出してみて、
ここでの処理は間違っていないから。

補足

スクリプトの他の記述が間違っておりました。。
丁寧教えていただき、大変ありがとうございます！

回答No.2

maiko0318

＞$iの値はforループを抜けるとリセットしてしまいます。

そこはサンプルといえどプログラムを略しすぎです。
××に$iを使わなければこのプログラムは成立していますよ。

for($i=0;&i<10;$i++)
とか書いているなら、
for(;&i<10;$i++)
とすればいいです。

補足

失礼いたしました。
勘所も見分けがつきませんでした。。

forの中は以下のような処理です。
→for($u=$i; $u<= 100; $u++){
}

よろしくお願いいたします。

回答No.1

Wap58

use strict;
use warnings;
our $ANCER = 0;

sub hoge{ print ++$ANCER ,"\n"; }

if(hoge eq hoge){
print hoge," eq ",hoge,"\n";
}

__END__

グローバル変数で保持されます

補足

グローバル変数を使用しましたが、現状思うように動作できておりません。
おそらくスクリプトの他の部分での記述が誤っているためだと思い、見直し中です。
ありがとうございます！