ファイルを１行ずつ処理する方法

<IT技術の処方箋：ファイルを１行ずつ処理する方法>

"ある特定のファイルを呼び出して、
１行ずつ何か処理をする方法です。


下のサンプルでは、
file.txtを呼び出して、
print $file
によって、１行ずつ表示しています。


open(IN, ""< file.txt"")|| print ""ERROR2"";
flock( IN, 1 );# ファイルを読み出しロック
while() {
$file= $_;
print ""$file"";
}
flock( IN, 8 );# ロック解除
close(IN);"

慣れてきましたか？慣れてきたら、
Perl(CGI)の間違いを簡単に見つける
というレポートも見ましょう