広告
広告
引数で指定した秒数だけスクリプトの実行をスリープさせます。引数を省略すると永久にスリープします。スリープ中のプロセスはSIGALRM を送ることで実行を再開することができます。戻り値はスリープした秒数。
# ファイルロック処理
$i = 2;
sub olock{
my $strFile = shift;
while ( -f $strFile ){
if ( --$i <= 0 ){
unlink( $strFile );
return;
}
sleep(2);
}
unless ( open( IN, ">$strFile" ) ){
return;
}
close( IN );
}
広告