Perlについての質問箱 30箱目

Perlについての質問箱 ..

753:デフォルトの名無しさん
07/05/23 14:12:31
すみませんが質問させてください

あるファイル（数万行の数字データ）の上から１行ずつ順番に読み込んで
最終行になるとまた１行目に戻って・・・という作業をしたいのです
途中でプログラムを閉じて再開したときも次の行から開始が可能であれば
もう言うことナシですが，残念ながら自分では何とも出来ず

丸２日間ネット上で調べに調べ

srand();
open(FILE, "data.txt");
rand($.) < 1 and $line = $_ while <FILE>;
close(FILE);
$line =~ s/\n//g;

とランダムで１行読み込む仕様で妥協するのが限界でした
もし上記作業がperlで可能でしたら申し訳ないですが
教えていただけないでしょうか

可能な方いらっしゃいましたらどうかお願いします。

次ページ