Perlでファイルを壊れにくくする排他制御を考察

	open(FILE, "+< file.txt") || die('file open error');
	flock(FILE, 2) or die "Can't flock   : $!";
	truncate(FILE, 0);
	seek(FILE, 0, 0);
	print FILE $newdata;
	close(FILE);

#--------------#
#  ロック処理  #
#--------------#
sub lock {
	my($retry,$mtime,$lockfile);
	$lockfile = shift;

	if(!$lockfile){ die ("lock error"); }

	# 1分以上古いロックは削除する
	if (-e $lockfile) {
		($mtime) = (stat($lockfile))[9];
		if ($mtime < time - 60) { unlock($lockfile); }
	}

	$retry = 5;
	while (!symlink(".", $lockfile)) {
		if (--$retry <= 0) {  die("現在混み合っています。しばらくしてから操作してください。"); }
		sleep(1);
	}
	my $lockflag=1;
}

#--------------#
#  ロック解除  #
#--------------#
sub unlock {
	my $lockfile = shift;

	if(!$lockfile){ die ("lock error"); }

	unlink($lockfile);
	#rmdir($lockfile);

	my $lockflag=0;
}

	eval{
		local $SIG{ALRM} = sub { die "timeout" };
		alarm(10);
		if(!open(FILE, "file.txt")){ die "fileopen"; }
		while(! flock(FILE,6)){
			sleep(1);
		}
		my $count = <FILE>;
		$count++;
		truncate(FILE, 0);
		seek(FILE, 0, 0);
		print FILE $count;
		close(FILE);
		alarm(0);
	};
	alarm(0);
	close(out);

	if($@ =~ /timeout/){
		&show_error("ファイル書き込みがタイムアウトしました。戻って再度アクセスをおこなってください。");
	}elsif($@ =~ /fileopen/){
		&show_error("ファイルを開けませんでした。戻って再度アクセスをおこなってください。");
	}elsif($@){
		&show_error("その他のエラーです。[".$@."]。戻って再度アクセスをおこなってください。");
	}