阅读量:5
在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 替换为你要遍历的实际文件夹路径。
