前端之家收集整理的这篇文章主要介绍了
Perl将文件复制到尚未创建的目录树中的最佳方法是什么？，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
什么是Perl将
文件复制到尚未创建的目标目录树中的最佳
方法？
就像是
@H_
502_4@copy("test.txt","tardir/dest1/dest2/text.txt");
由于目录tardir / dest1 / dest2不存在，所以不会工作。在Perl中创建目录的最佳方式是什么？
@H_
502_4@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";
原文链接：https://www.f2er.com/Perl/173058.html
