perl - 在Perl中将文件复制到尚未创建的目录树中的最佳方法是什么？

Question

在 Perl 中将文件复制到尚未创建的目标目录树的最佳方法是什么？

就像是

copy("test.txt","tardir/dest1/dest2/text.txt");

将无法使用，因为目录dirdir / dest1 / dest2还不存在。在Perl中使用目录创建进行复制的最佳方法是什么？

Answer 1

use File::Path;
use File::Copy;

my $path = "tardir/dest1/dest2/";
my $file = "test.txt";

if (! -d $path)
{
  my $dirs = eval { mkpath($path) };
  die "Failed to create $path: $@\n" unless $dirs;
}

copy($file,$path) or die "Failed to copy $file: $!\n";