在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 替換為你要遍歷的實際文件夾路徑。
