Perl:一次读取一个字节的二进制文件

Question

我正在编写一个工具，它需要一次读取一个二进制文件，处理每个字节，并可能根据处理的值采取一些行动。但出于某种原因，Perl 获得的值与文件中的数据不同。我正在使用与此类似的代码(为简洁起见，但仍然存在问题):

#!/usr/bin/perl
use strict;

my $bytesToProcess = 16;
my $fileName = 'datafile.bin';

print "Processing $bytesToProcess bytes...\n";

open FILE, "<:raw", $fileName or die "Couldn't open $fileName!";

for my $offset (0 .. $bytesToProcess - 1)
{
    my $oneByte;
    read(FILE, $oneByte, 1) or die "Error reading $fileName!";
    printf "0x%04X\t0x%02X\n", $offset, $oneByte;
}

close FILE;

输入值(数据文件的前 16 个字节): 50 53 4D 46 30 30 31 35 00 00 70 00 07 3F 10 00
输出:

Processing 16 bytes...
0x0000  0x00
0x0001  0x00
0x0002  0x00
0x0003  0x00
0x0004  0x00
0x0005  0x00
0x0006  0x01
0x0007  0x05
0x0008  0x00
0x0009  0x00
0x000A  0x00
0x000B  0x00
0x000C  0x00
0x000D  0x00
0x000E  0x00
0x000F  0x00

知道这里出了什么问题吗？

Answer 1

read返回字节作为字符 "\x50" ，不是数字 0x50 .更改 printf线到

printf "0x%04X\t0x%02X\n", $offset, ord $oneByte;

另一种选择是使用 unpack 'c', $oneByte .