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

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>) {

现在，如果您想要从中获取数据，您必须编写一些 unpack 的东西：

  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”），它会自动解压到列表中。 有关要使用的选项，请参阅 pack 文档。