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