Perl Filehandle Open截断文件(Perl Filehandle Open Truncates the File)

 我正在编写我的第一个Perl程序，这是一个很糟糕的事情。 我很高兴地说，大部分内容都是有效的，搜索这个网站对我的大多数问题都有所帮助。 
 
 我正在处理由空格分隔值组成的大文件。 我向下过滤文件以仅显示其中一列中具有特定值的行，并将过滤后的数据输出到新文件。 然后我尝试将该文件的所有行都推送到一个数组中以用于循环。 这是一些代码： 
 
my @orig_file_lines = <ORIG_FILE>;
open MAKE_NEW_FILE, '>', 'newfile.dat' or die "Couldn't open newfile.dat!";
&make_new_file(\@orig_file_lines);   ##Creates a new, filtered newfile.dat
open NEW, "newfile.dat" or die "Couldn't open newfile.dat!";
my @lines;
while(<NEW>){
 push(@lines,$_);
}
printf("%s\n", $lines[$#lines]);  ##Should print entirety of last line of newfile.dat
 
 问题有两个：1。$＃lines = 24500这里新创建的文件（newfile.dat）实际上有24503行（所以它应该是24502），2。printf语句返回截断的行24500，切断该行过早地大约两列。 
 
 每个其他行，例如$ lines [0-24499]，即使它比$ lines [24500]更宽，也会成功打印整行，所以特定行的长度（它们都很长）不是问题。 但这几乎就好像阵列变得太大了，因为它切断了一条线的一部分，然后是接下来的两条线。 如果是这样，我该怎么做呢？ 

I am writing my first Perl program and it's a doozy. I'm happy to say that everything has been working for the most part, and searching this website has helped with most of my problems.
 
I am working with a large file composed of space separated values. I filter the file down to display only lines with a certain value in one of the columns, and output the filtered data to a new file. I then attempt to push all of the lines of that file into an array to use for looping. Here's some code:
 
my @orig_file_lines = <ORIG_FILE>;
open MAKE_NEW_FILE, '>', 'newfile.dat' or die "Couldn't open newfile.dat!";
&make_new_file(\@orig_file_lines);   ##Creates a new, filtered newfile.dat
open NEW, "newfile.dat" or die "Couldn't open newfile.dat!";
my @lines;
while(<NEW>){
 push(@lines,$_);
}
printf("%s\n", $lines[$#lines]);  ##Should print entirety of last line of newfile.dat
 
The problem is twofold: 1. $#lines = 24500 here when the newly created file (newfile.dat) actually has 24503 lines (so it should be 24502), 2. the printf statement returns a truncated line 24500, cutting off that line prematurely by about two columns.
 
Every other line, e.g. $lines[0-24499], will successfully print the entire line even when it is wider than $lines[24500], so the length of that particular line (they're all long) is not the problem. But it is almost as if the array has gotten too large somehow, since it cut off part of one line, and then the next two lines. If so, how do I combat this?

原文：https://stackoverflow.com/questions/20054367