Perl 提供了丰富的内置函数和模块来操作目录，适用于文件系统管理任务。本文将介绍Perl中目录的创建、读取、删除及其他操作。

目录

  1. 目录操作概述
  2. 创建与删除目录
  3. 读取目录内容
  4. 更改与获取当前目录
  5. 使用模块操作目录
  6. 目录操作示例
  7. 参考资料

1. 目录操作概述

Perl 的目录操作包括：

  • 创建和删除目录。
  • 读取目录中的文件和子目录。
  • 管理当前工作目录。

常用函数有 mkdir、rmdir、opendir 等，模块如 File::Path 提供更高级功能。

站内链接：了解文件操作，见 Perl 文件操作。

2. 创建与删除目录

创建目录

使用 mkdir：

use strict;
use warnings;

mkdir "new_dir" or die "无法创建目录: $!";
print "目录已创建\n";
  • 指定权限（八进制）：
mkdir "secure_dir", 0755 or die "无法创建: $!";

删除目录

使用 rmdir（仅限空目录）：

rmdir "new_dir" or warn "无法删除目录: $!";
print "目录已删除\n";

3. 读取目录内容

使用 opendir 和 readdir

opendir(my $dh, ".") or die "无法打开目录: $!";
while (my $entry = readdir $dh) {
    print "$entry\n";  # 输出当前目录所有条目
}
closedir $dh;
  • 过滤隐藏文件：
opendir(my $dh, ".") or die "无法打开: $!";
while (my $entry = readdir $dh) {
    next if $entry =~ /^\./;  # 跳过 . 和 ..
    print "$entry\n";
}
closedir $dh;

使用 glob

简便获取文件列表：

my @files = glob("*");  # 当前目录所有文件
print "@files\n";

my @txt_files = glob("*.txt");  # 仅 .txt 文件
print "@txt_files\n";

4. 更改与获取当前目录

获取当前目录

使用 getcwd（需 Cwd 模块）：

use Cwd;

my $dir = getcwd;
print "当前目录：$dir\n";

更改目录

使用 chdir：

chdir "new_dir" or die "无法切换目录: $!";
print "已切换到：", getcwd, "\n";

5. 使用模块操作目录

File::Path 模块

处理多级目录：

  • 安装：cpan File::Path
  • 创建多级目录：
use File::Path qw(make_path);

make_path("parent/child/grandchild") or warn "创建失败: $!";
print "多级目录已创建\n";
  • 删除目录树：
use File::Path qw(remove_tree);

remove_tree("parent") or warn "删除失败: $!";
print "目录树已删除\n";

File::Find 模块

递归遍历目录：

use File::Find;

find(sub {
    print "$File::Find::name\n";  # 完整路径
}, ".");  # 从当前目录开始

6. 目录操作示例

列出所有 .txt 文件

opendir(my $dh, ".") or die "无法打开: $!";
my @txt_files = grep { /\.txt$/ } readdir $dh;
print "文本文件：@txt_files\n";
closedir $dh;

创建备份目录

my $backup_dir = "backup_" . time;
mkdir $backup_dir or die "无法创建备份目录: $!";
print "备份目录 $backup_dir 已创建\n";

7. 参考资料

站内链接

出站链接

其他资源

  • 《Learning Perl》 – 文件与目录章节。
  • X社区：搜索 #PerlDirectories 获取示例。

这篇指南详细介绍了Perl中目录操作的各种方法，从基本函数到高级模块一应俱全。如果需要更深入的内容（比如递归操作优化或跨平台兼容性），请告诉我！