怎样用perl在当前目录下新建文件夹并在此文件夹中新建txt文件

比如创建 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

mkdir（"path/to/your/dir", mask)

第一个参数是你要创建的文件夹名字，mask是权限，比如0755（0开头表示8进制）

你也可以使用系统命令

system("mkdir path/to/your/dir")

不明白你的在哪里写是什么意思？已经很具体了啊，大哥，好吧，好事做到底

$new_dir = "my_new_dir"

mkdir( $new_dir, 0777 )

比如创建 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

---