Perl - 读取文件行

Question

我试图用下面的代码读取文件中的行。但是，此代码的结果是打印与文档所在行相同的行。

open (file_to_rand, "./files/file07.txt") or die "Could not open file"; 
foreach $line (<file_to_rand>) { 
    push(@array,$line); 
} 
close(file_to_rand); 

这段代码有什么问题？

Answer 1

如果你只是想读取所有行到数组（这不是有效的大文件）：

open my $fh, "<", "./files/file07.txt" or die "Could not open file"; 
my @lines = readline($fh); 
close $fh; 
#possible you need to remove new line character at the end of each line: 
chomp @lines; 

顺便说一句：这是Perl和不使用Perl