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

发布时间：2020-12-15 21:19:24 所属栏目：大数据来源：网络整理

导读：什么是Perl将文件复制到尚未创建的目标目录树中的最佳方法？就像是 copy("test.txt","tardir/dest1/dest2/text.txt"); 由于目录tardir / dest1 / dest2不存在，所以不会工作。在Perl中创建目录的最佳方式是什么？解决方法 use File::Path;use File::Copy;m

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

就像是

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

由于目录tardir / dest1 / dest2不存在，所以不会工作。在Perl中创建目录的最佳方式是什么？

解决方法

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";

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!