如果文件不存在，如何创建文件的完整路径？

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.为避免冲突，我认为您可以使用文件名创建文件时创建文件。但是，我不确定你是否可以创造同样的东西。