Perl语言入门（第8版）

242

｜

第

13

章

假如你喜欢，也可以用

readline

操作符执行间接文件句柄读取，让程序读起来更清

楚些：

my $name = 'FRED';

my @lines = readline FRED; #

从

FRED

读取

my @lines = readline $name; #

从

FRED

读取

不过，因为间接文件句柄读取并不常见，并且通常也只用在简单的标量变量上，所以

很少有用到

readline

操作符的机会。

目录句柄

若想从目录取得文件名列表，还可以使用目录句柄（

directory handle

）。目录句柄看

起来像文件句柄，使用起来也没多大差别。你可以打开它（以

opendir

代替

open

），

读取它的内容（以

readdir

代替

readline

），然后将它关闭（以

closedir

代

替

close

）。只不过读到的是目录里的文件名（或其他东西的名称），而不是文件的

内容。比如：

my $dir_to_process = '/etc';

opendir my $dh, $dir_to_process or die "Cannot open $dir_to_process: $!";

foreach $file (readdir $dh) {

print "one file in $dir_to_process is $file\n";

}

closedir $dh;

和文件句柄一样，目录句柄会在程序结束时自动关闭，也会在重新打开其他目录前自

动关闭。

我们可以选用裸字作为目录句柄的名称，这和文件句柄一样，但同样存在问题： ...