Perl 解包和换行符

Question

我正在使用解包功能将二进制文件的内容转换为十六进制。

我是这样做的：

#! /usr/bin/perl

use strict;
use warnings;

my $input=$ARGV[0];

open(INPUT,'<',$input) || die("Couldn't open the file, $input with error: $!\n");
my $value=<INPUT>;
$value=unpack("H*",$value);

print $value,"\n";

这会将二进制输入文件的内容打印为十六进制字符串。

但是，问题在于，在解析二进制文件的内容时，如果遇到字节 0xa（换行符），解包函数会在该点停止。

因此，我在 $value 变量中得到不完整的输出。

几个例子：

65 2E 0D 0D 0A 24 00 00 00 00 00 00 00 BA DC 95 DC FE BD

FE FF FF FF 07 00 00 00 08 00 00 00 09 00 00 00 0A 00 00 00 0B 00 00 00 0C 00

字节后的所有内容，0xa没有被unpack解析。

那么，有没有办法对完整的二进制文件使用 unpack 使其在遇到换行符时不会停止解析？

谢谢。

Answer 1

你怎么看

my $value = <INPUT>;

有吗？读一行，也就是读到0A。修复：

my $value;
{ local $/; $value = <INPUT>; }

另外，你想添加

binmode(INPUT);

在open之后。