perl - 如何从 Perl 中的二进制文件读取 unsigned int？

Question

假设我有一个格式如下的二进制文件

    [unsigned int(length of text)][text][unsigned int(length of text)][text][unsigned int(length of text)][text]

文件的模式不断重复。如何读取 unsigned int 并将其打印出来，然后在 Perl 中打印文本 block ？

再次强调，这是一个二进制文件，而不是纯文本文件。

Answer 1

这是一个小的工作示例。

#!/usr/bin/perl

use strict;
use warnings;

my $INT_SIZE = 2;
my $filename = 'somefile.bin';

open my $fh, '<', $filename or die "Couldn't open file $filename: $!\n";

binmode $fh;

while ( read $fh, my $packed_length, $INT_SIZE ) {

    my $text = '';
    my $length = unpack 'v', $packed_length;

    read $fh, $text, $length;

    print $length, "\t", $text, "\n";
}

更改 INT_SIZE 以及解包模板的大小和字节顺序以适应(“v”或“n”或“V”或“N”)。请参阅unpack联机帮助页了解更多详细信息。