perl - 如何处理固定长度记录的二进制文件，中间没有换行符？

Question

我有一个文本文件，它由固定长度的记录组成，但都在一行中，中间没有换行符。在 Perl 中处理它的最佳方法是什么？谢谢！

Answer 1

首先，让我们打开文件，并确保它处于 bin 模式：

open my $fh, '<', 'file.name' or die "Cannot open file.name: $!";
binmode $fh;

现在，将输入记录分隔符设置为引用记录的长度（假设每条记录 120 字节）：

local $/ = \120;

现在，让我们阅读记录：

while (my $record = <$fh>) {

现在如果你想从中获取数据，你必须写一些解包的东西：

  my @elements = unpack("......", $record);

现在您可以处理@elements，并完成while() {} 循环：

  ...
}

整个“程序”：

open my $fh, '<', 'file.name' or die "Cannot open file.name: $!";
binmode $fh;
local $/ = \120;
while (my $record = <$fh>) {
  my @elements = unpack("......", $record);
  ...
}
close $fh;

Answer 2

使用该read FILEHANDLE,SCALAR,LENGTH函数一次将一个块读入缓冲区...

use constant LEN => 60;
while (!eof $fh) {
    my $len = read $fh, $buf, LEN;
    die "short read" if $len < LEN;
    # processing...
}

... 并使用正则表达式unpack, 或您喜欢的任何方式处理缓冲区。

Answer 3

unpack()可能在这里有用。您可以指定字符列表（使用“c”、“C”或“W”），它会自动解包到一个列表中。有关要使用的选项，请参阅包文档。