在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\n";
}
# 关闭目录
closedir($dh);
这段代码会遍历指定文件夹中的所有文件和子目录，并打印它们的路径。请注意，你需要将 /path/to/directory 替换为你要遍历的实际文件夹路径。
