我想从目录文件夹中读取文件

Question

如何从文件夹中读取文件？

我试过

open(my $yourhandle, '<', 'spool.txt') 
    or die "Unable to open file, $!";
close($yourhandle);

但该代码只打开文件，不读它：/

Answer 1

使用菱形操作符从已打开的文件句柄中读取：

open my $FH, '<', '/path/to/spool.txt' or die $!;
while (my $line = <$FH>) {
    print "I've read: $line";
}
close $FH;