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

时间:2015-10-13 13:24:15

标签: perl

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

我试过

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

但该代码只打开文件,不读它:/

1 个答案:

答案 0 :(得分:2)

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

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