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

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;