perlのカウンターファイル

通常perlの場合、パーミッションが必要になる場合があります。
もちろん、ファイルのlockは必要です。

sub countCounter{
my($path)=@_;
open(FILE,"$path");
while($line=){
chomp($line);
$count=$line;
}
close(FILE);

$add_count=$count;
$add_count++;
open(FILE,">$path");
print FILE $add_count;
close(FILE);
chmod(0666,"$path");
if($count eq ""){
$count="0";
}
return $count;
}