CGI(Perl)でファイルをロックするのは?

どっと 2000/03/25(土) 03:34:48
CGI(Perl)でファイルをロックする場合、
ファイルのロックは(1)~(4)のどれが正しいのですか?

(1)の場合
flock( IN, 2 );
open( IN, "log.dat" );
@tbl = <IN>;
close( IN );
flock( IN, 8 );

(2)の場合
open( IN, "log.dat" );
flock( IN, 2 );
@tbl = <IN>;
flock( IN, 8 );
close( IN );

(3)の場合
open( IN, "log.dat" );
flock( IN, 2 );
@tbl = <IN>;
close( IN );
flock( IN, 8 );

(4)の場合
flock( IN, 2 );
open( IN, "log.dat" );
@tbl = <IN>;
flock( IN, 8 );
close( IN );

知っておられる方がおられましたらご教授ください。
2000/03/25(土) 03:45:21
とほほのperl入門(リファレンス編)より
http://www.tohoho-web.com/wwwperl2.htm#flock
が、参考になると思います。