如何读入Perl中目录的内容？

要在Perl中读取目录的内容，您可以使用opendir、readdir和closedir函数。以下是一个简单的示例：

#!/usr/bin/perl

use strict;
use warnings;

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

# 读取目录内容
while (my $entry = readdir($dh)) {
    print "$entry\n";
}

# 关闭目录
closedir($dh);

在这个示例中，我们首先使用opendir函数打开目录，然后使用readdir函数读取目录的内容，最后使用closedir函数关闭目录。

opendir函数接受两个参数：一个目录句柄变量（例如$dh）和要打开的目录的路径。readdir函数接受一个目录句柄变量，并返回目录中的下一个条目。closedir函数接受一个目录句柄变量，用于关闭目录。

在while循环中，我们使用readdir函数读取目录中的每个条目，并将其打印到控制台上。

注意：在实际使用中，请确保使用正确的目录路径，并确保目录存在。