Perl 文件目录操作374

目录操作是 Perl 中一项重要的任务，因为它允许应用程序与文件系统交互并管理文件和目录。Perl 提供了广泛的功能，使您可以轻松创建、读取和遍历目录。

创建目录

使用 mkdir() 函数可以创建新目录：
```perl
use File::Path;
mkpath('/path/to/new/directory');
```

以上代码将在 /path/to/new/directory 路径下创建一个新目录。如果该路径的任何父目录不存在，则函数也会创建它们。

读取目录

使用 opendir() 函数可以打开目录句柄，然后使用 readdir() 函数读取目录中的条目：
```perl
use File::Spec;
opendir(DIR, '/path/to/directory');
my @files = readdir(DIR);
closedir(DIR);
```

readdir() 每次返回一个字符串，代表目录中的一个条目。它返回 nil 时表示已读取完所有条目。

遍历目录

可以使用 DirHandle 对象在目录中迭代。这提供了比 readdir() 更加高级的方式来遍历目录：
```perl
use File::Spec;
my $dir = DirHandle->new('/path/to/directory');
while (my $file = $dir->read) {
print $file, "";
}
$dir->close;
```

DirHandle::read() 返回一个 File::Spec::Unix 对象，其中包含文件路径和属性等信息。

删除目录

使用 rmdir() 函数可以删除空目录：
```perl
use File::Path;
rmdir('/path/to/empty/directory');
```

如果目录不为空，则 rmdir() 将失败。要强制删除目录及其内容，可以使用 File::Path 模块：
```perl
use File::Path;
rmtree('/path/to/non-empty/directory');
```

其他目录操作

Perl 还提供了以下目录操作功能：
chdir()：更改当前工作目录。
getcwd()：获取当前工作目录。
exists()：检查文件或目录是否存在。
link()：创建硬链接。
unlink()：删除文件或目录（如果它是硬链接）。

示例：列出文件

下面是一个演示如何使用 Perl 列出目录中文件的示例：
```perl
use File::Spec;
opendir(DIR, '/path/to/directory');
my @files = readdir(DIR);
closedir(DIR);
foreach my $file (@files) {
my $path = File::Spec->catdir('/path/to/directory', $file);
if (-f $path) {
print "$file is a file";
} elsif (-d $path) {
print "$file is a directory";
} else {
print "$file is neither a file nor a directory";
}
}
```