# 初心者スレから誘導されてきました。

# 排他処理をしたいです。
# ローカル環境(WindowsMe+Apache+Cygwin付属のPerl)では成功するのですが、
# サーバで実行するときには、必ず失敗します(エラー表示部が実行されます)。
# もし落ち度がありましたらご教授ください。以下要所の抜粋です。
sub create_lock {
　　my ($lockfile, $retry) = @_;
　　while (!mkdir($lockfile, 0755)) {
　　　　if (--$retry <= 0) {
　　　　　　return undef;
　　　　}
　　　　sleep(1);
　　}
　　return 1;
}

sub remove_lock {
　　my ($lockfile) = @_;
　　rmdir($lockfile);
}

#上記関数の利用例
my $lock_handle = &create_lock("./lockfile", 5);
if (not $lock_handle) {
　　&print_error($resource{writedatafailed});
}
#ここで処理する
&remove_lock($dir_lock);