Perl mkdir - 创建目录216

在 Perl 中，可以使用 mkdir 函数创建目录。

函数原型：mkdir(目录名, 权限);

参数：

目录名：要创建的目录的路径。
权限（可选）：八进制格式的目录权限，例如 0755 表示所有者可读、可写、可执行，组和其他用户可读、可执行。

返回值：如果成功创建目录，则返回 1；否则，返回 undef 并设置 $! 以指示错误。

示例
my $目录名 = "/tmp/my_dir";
if (mkdir($目录名, 0755)) {
print "目录 $目录名 创建成功";
} else {
print "创建目录 $目录名 失败: $!";
}

选项mkdir 函数支持以下选项：

-p：如果父目录不存在，则创建父目录。
-m：设置目录的修改时间为调用 mkdir 的时间。

递归为了递归地创建目录，可以使用 mkdir 函数与 File::Path 模块中的 mkpath 函数相结合。

use File::Path;
my $目录名 = "/tmp/my_dir/subdir1/subdir2";
if (mkpath($目录名, 0755)) {
print "目录 $目录名 创建成功";
} else {
print "创建目录 $目录名 失败: $!";
}

注意点* 确保具有在指定目录中创建目录所需的权限。
* 如果父目录不存在，需要使用 -p 选项。
* mkpath 函数需要 File::Path 模块已安装。
* 检查返回值以确保 mkdir 操作成功。
* 如果设置了 -m 选项，则目录的修改时间将被覆盖。

2024-12-04

上一篇：探索 Perl 中的命令行参数：$ARGV

下一篇：探索 Shift Perl：强大的 Perl 脚本语言