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