linux - ファイルが存在しない場合、ファイルのフル パスを作成するにはどうすればよいですか?

Question

関数では、ファイルへの参照を取得します。それはフォーマットである可能性がありますdir1/subdir/filename.txt
perlで行う方法はありますか:

1. ファイルが存在しない場合は作成し、存在しない場合はディレクトリ構造も作成します
2. この方法により、2 つのスクリプトが同時に同じことを実行しようとしても、何も問題が発生しないことが保証されます (たとえば、ファイルが破損したりロックされたりするなど)。

Answer 1

1. ファイルが存在するかどうかを確認するには、次のことができます

my $filename="dir1/subdir/filename.txt";

if (-e $filename)
{
  print "file exists";
  open( FILE, '<', $filename ) or die 'Could not open file:  ' . $!;

}

elsif (!-e $filename)
{
print "file does not exist";

}

-e と -f の両方を使用して、ファイルが存在するかどうかを確認できます
2.競合を避けるために、ファイル名に作成時刻を指定してファイルを作成できると思います。しかし、同じものを作成できるかどうかはわかりません。