perl多進程讀寫文本

用perl調度sql指令碼，在開多個進程的時候，發現perl寫入的log檔案先後次序紊亂，又不想搞多線程編程那麼麻煩，我的處理方法，對應的檔案加鎖。perl提供flock函數對檔案控制代碼加鎖。

參考代碼：

use Fcntl qw(:flock);
my $sum;
my $kk=$ARGV[0];
open wr , ">>/wls/dsadm/etl/test.txt" ;
flock(wr, LOCK_EX);
for($i=1;$i<=80000;$i++)
{ 
    $sum=$i;
    print "$sum\n" ;
    print  wr  $sum.$kk."\n";
    }
flock(wr, LOCK_EX);

close wr;

註：Fcntl 是擷取檔案的狀態值。