2005-06-01から1ヶ月間の記事一覧
定番のシンボリック方式。備忘。 ;# lock file sub fileLock { my( $lockfile ) = $_[0]; my( $wait ) = 10; while (!symlink(".", $lockfile)) { if (--$wait <= 0) { # lock failed print( "ファイルロックに失敗しました\n" ); &dbHandleLogUnlock( $lock…
定番のシンボリック方式。備忘。 ;# lock file sub fileLock { my( $lockfile ) = $_[0]; my( $wait ) = 10; while (!symlink(".", $lockfile)) { if (--$wait <= 0) { # lock failed print( "ファイルロックに失敗しました\n" ); &dbHandleLogUnlock( $lock…
