前端之家收集整理的这篇文章主要介绍了
Perl将文件复制到尚未创建的目录树中的最佳方法是什么?,
前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
什么是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";
原文链接:https://www.f2er.com/Perl/173058.html