Question

perl 如何创建文件夹下包含文件夹

Answer 1

比如创建 D:\tmpA\tmpB 这样的目录，那么可以用命令：
mkdir("D:\\tmpA") unless(-d "D:\\tmpA"); #创建 D:\tmpA
mkdir("D:\\tmpA\\tmpB ") unless(-d "D:\\tmpA\\tmpB"); #创建D:\tmpA\tmpB

注：
mkdir("D:\\tmpA") unless(-d "D:\\tmpA"); 整体的意思表示如果不存在目录D:\\tmpA 那么创建目录 D:\\tmpA。
-d "D:\\tmpA“ 表示目录是否存在，如果存在则为真，不存在为假。
如果要判断文件是否存在 则用 -e

追问

我刚才试过了，你写的上面两句是不存在的时候就创建，存在的时候还是创建啊？我加了
if( not -e "D:\\tmpA\\tmpB"){
mkdir("D:\\tmpA") unless(-d "D:\\tmpA"); #创建 D:\tmpA
mkdir("D:\\tmpA\\tmpB ") unless(-d "D:\\tmpA\\tmpB"); #创建D:\tmpA\tmpB }
else{
print("ggggggg");
}
文件夹已经存在了，还是不执行打印下面的ggggggg

追答

你修改为下面的代码试试：
unless(-d "D:\\tmpA\\tmpB"){
mkdir("D:\\tmpA") unless(-d "D:\\tmpA"); #创建 D:\tmpA
mkdir("D:\\tmpA\\tmpB ") unless(-d "D:\\tmpA\\tmpB"); #创建D:\tmpA\tmpB
}
else{
print("ggggggg");
}

目录存在与否用 -d 文件存在与否采用-e

追问

运行不了了如果这样写的 话

追答

我测试了可以用，你不要直接复制过去，你看看复制之后断行之类的有没有问题，我测试的原始代码如下：
#!/usr/bin/perl -w
use strict;
die "perl $0 " unless(@ARGV == 0);
unless(-d "D:\\tmpA\\tmpB"){
mkdir("D:\\tmpA") unless(-d "D:\\tmpA"); #创建 D:\tmpA
mkdir("D:\\tmpA\\tmpB ") unless(-d "D:\\tmpA\\tmpB"); #创建D:\tmpA\tmpB
}
else
{
print("ggggggg");
}

如果不行，你就给我说说你的报错是怎么样的