perl遍历文件夹怎样实现

在Perl中，可使用opendir和readdir函数来遍历文件夹。以下是一个示例代码：

#!/usr/bin/perl

use strict;
use warnings;

# 指定要遍历的文件夹路径
my $dir = '/path/to/directory';

# 打开目录
opendir(my $dh, $dir) or die "没法打开目录: $!";

# 读取目录中的文件和子目录
while (my $file = readdir($dh)) {
    # 疏忽当前目录（.）和上级目录（..）
    next if $file eq '.' or $file eq '..';

    # 构建文件的完全路径
    my $path = "$dir/$file";

    # 打印文件路径
    print "$path
";
}

# 关闭目录
closedir($dh);

这段代码会遍历指定文件夹中的所有文件和子目录，并打印它们的路径。请注意，你需要将 /path/to/directory 替换为你要遍历的实际文件夹路径。