広告
広告
引数で指定した秒数だけスクリプトの実行をスリープさせます。引数を省略すると永久にスリープします。スリープ中のプロセスは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 ); }
広告