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