perl - Perl 检查递归创建的文件夹的条件

Question

我创建了一个简单的脚本来递归地在 /123/456 中创建文件夹。脚本如下：

$a='123';
$b='456';
$c = 'abc';
unless (-d $c){
    mkdir $c;
}
chdir("$a/$b/$c");


$d = 'def';
unless (-d $d){
    mkdir $d;
}
chdir ("$a/$b/$c/$d");

$e = 'ghi';
unless (-d $e){
    mkdir $e;
}
chdir ("$a/$b/$c/$d/$e");
chdir ("$a/$b);

现在，我需要检查目录的流程是否正确。请你建议我是否可以在上面的脚本中插入另一个 if 条件来检查它或 die 方法。我分别在上述文件夹中复制文件。

我是perl的新手。所以。如有错误请纠正我。谢谢你。

Answer 1

您可以改用此代码，这就像简单 10 倍：

use File::Path qw(mkpath);

mkpath("123/456/abc/def/ghi")
    or die "Cannot create directory structure";