1

我创建了一个简单的脚本来递归地在 /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的新手。所以。如有错误请纠正我。谢谢你。

4

1 回答 1

2

您可以改用此代码,这就像简单 10 倍:

use File::Path qw(mkpath);

mkpath("123/456/abc/def/ghi")
    or die "Cannot create directory structure";
于 2013-06-19T23:47:38.470 回答