CentOS readdir在Perl中的实现

在Perl中，可以使用readdir函数来读取目录的内容

#!/usr/bin/perl
use strict;
use warnings;

# 指定要读取的目录
my $directory = '/path/to/your/directory';

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

# 读取目录内容
while (my $file = readdir($dh)) {
    # 过滤掉当前目录（.）和上级目录（..）
    next if ($file eq '.' || $file eq '..');

    # 输出文件名
    print "$file\n";
}

# 关闭目录
closedir($dh);

将上述代码保存为一个.pl文件，例如list_directory.pl，然后在终端中运行perl list_directory.pl。请确保将$directory变量设置为要读取的目录路径。

这个脚本首先使用opendir函数打开一个目录句柄，然后使用readdir函数在循环中读取目录中的每个文件和子目录。readdir函数返回目录中的下一个条目，直到没有更多的条目为止。在循环中，我们使用next语句跳过当前目录（.）和上级目录（..），然后输出剩余的文件名。最后，使用closedir函数关闭目录句柄。