my $path = “myfile.txt”; #最終的に保存したいファイル
my $contents = “…blabla…”; #保存する内容
my $temp = “${path}_”.time.’.temp’; #テンポラリファイル名
my $try = 4;
while (-f $temp && –$try){ #ファイル名重複チェック
sleep (1);
$temp = “${path}_”.time.’.temp’;
}
$try or die sprintf(
‘Failed to get a unique file name: %s’,
$temp,
);
#テンポラリファイルに書き出し
(open (FILE, “>$temp”)) or die sprintf(
‘OPEN ERROR: %s, %s’,
$temp,
$!
);
binmode FILE;
print FILE $contents;
(close (FILE)) or die sprintf(
‘CLOSE ERROR: %s, %s’,
$temp,
$!
);
#最後に置き換え
rename($temp, $path)
or die sprintf(
‘File replacement failed (%s, %s) : %s’,
$temp,
$path,
);