Perlコーディング初心者質問スレ Part 57at PHPPerlコーディング初心者質問スレ Part 57 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト400:nobodyさん 08/04/30 18:38:47 すいません。 どうも下記例のforeachのループの中で、さらにwhileのループを 回せないのですが、たぶん簡単な理由だとは思うのですが、 お助け下さい。 他にもこのようなforeachのループの中で、foreachのループも回せないと 思います。 foreach $number(@number){ while (<F2>) { print "$number\n"; if (/$number/) { print "マッチしました\n"; print F3; } } } 401:nobodyさん 08/04/30 19:09:01 >>400 <F2>で同じ行数を複数回とりだしたい感じ？ だとしたらヒント：seek 402:nobodyさん 08/04/30 19:10:23 >>400 1回目のforeachが終わったときに<F2>が空になる 403:nobodyさん 08/04/30 19:48:00 whileに入る前に開きなおすのも手だな 404:nobodyさん 08/04/30 20:17:59 GavbPT5W 一回目のループで開いてるファイルのファイル位置が終端にあるため ２周目はファイルを読み込むループが発生しません 解決法は２つ ・While の直前でファイルを開くようにする ・While の直前で seek を使ってファイル位置を先頭に戻す です。 負荷は後者の方が幾分か軽いです 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch