我的问题是关于从文件中读取行的 while 循环。情况是当while循环while(<FILEHANDLE>)在当前行($_)上执行操作时，我想存储下一行或整个下一行的值。那么解决这个问题的方法是什么？是否有特定的功能或模块来做这件事？
【问题讨论】：
标签： perl
如果你想一次处理四行并且每行由@FCC分隔，那么你需要改变perl的输入文件分隔符。
在你的脚本里放
$/="\@FCC"
这意味着当您执行 () 时，您在 $_ 中获得的每条记录现在都是文件的四行。
use warnings;
use strict;
local $/="\@FCC";
while (<>) {
chomp;
#Each time we iterate, $_ is now all four lines of each record.
}
编辑
您需要反斜杠 @
【讨论】：
@FCC实际上不是数组时在双引号内使用会导致编译错误。
您可以在任何地方阅读<>，而不仅仅是在循环的开头，例如
while (my $line = <>) {
chomp $line;
my $another_line = <>;
chomp $another_line;
print "$line followed by $another_line\n";
}
【讨论】：
假设您的文件很小（可能小于 1gb），您可以将其填充到一个数组中并遍历它：
use warnings;
use strict;
my @lines;
while (<>) {
chomp;
push @lines, $_;
}
my $num_lines = @lines; #use of array in scalar context give length of array
# don't do last line (there is no next one)
$num_lines -= 1;
foreach (my $i = 0; $i < $num_lines; $i++) {
my $next_line = $i+1;
print "line $i plus $next_line:",$lines[$i],$lines[$i+1],"\n";
}
请注意，我的解决方案的语义与上面的答案有点不同。我的解决方案将打印除第一行之外的所有内容两次；如果您希望所有内容都打印一次，上述解决方案可能更有意义。
【讨论】：
如果您想从文件中一次读取 n 行，您可以使用 Tie::File 并使用数组一次引用 n 元素，如下所示：
use strict;
use warnings;
use Tie::File;
my $filename = 'path_to_your_file';
tie my @array, 'Tie::File', $filename or die 'Unable to open file';
my $index = 0;
my $size = @array;
while (1) {
last if ($index > $size); # Be careful! Try to do a better check than this!
print @array[$index..$index+3];
print "----\n";
$index += 4;
}
（这只是一个例子，尝试编写更好的代码）
正如文档所说，文件不会一次全部加载到内存中，因此即使是大文件也可以工作。
【讨论】：