perl - 从文件中读取反转字节作为十进制数

Question

我正在尝试从 Perl 中的 Civilization 2 游戏存档文件中读取回合数。我有一个非常草率的解决方案，但必须有一个更优雅的解决方案。

它们以两个字节的形式存储在偏移量 28 和 29 (0x1C, 0X1D) 处。对于小于 256 的圈数，仅使用第一个字节 (0x1C)。对于更高的圈数，使用第二个字节。奇怪的是，它们似乎与我的预期相反。即第300圈存储为0x2C、0x01。这让我很难解析它们。

我糟糕(但有效)的解决方案是将每个字节读取为字节，将每个转换为十六进制字符串，使用正则表达式替换将字符串操作为正确的顺序，然后将此十六进制字符串转换回十进制值。这太糟糕了，我真的很尴尬；因此我想知道如何做得更好。

我的代码:

use Fcntl qw(:seek);

sub get_savegame_turn_number($);
sub read_file_hexdata_at_offset($$$);

sub get_savegame_turn_number($) {
    my ($filename) = @_;

    my $byteA = read_file_hexdata_at_offset($filename, 28, 1);
    my $byteB = read_file_hexdata_at_offset($filename, 29, 1);

    my $byteAhex = sprintf("%#02x", ord($byteA));
    my $byteBhex = sprintf("%#02x", ord($byteB));
    $byteAhex =~ s/^0x//;
    my $bytestring = $byteBhex . $byteAhex;

    return hex($bytestring);
}

sub read_file_hexdata_at_offset($$$) {
    my ($filename, $byte_position, $length) = @_;
    my($fh, $byte_value);

    open($fh, "<", $filename)
        || die "can't open $filename: $!";

    binmode($fh)
        || die "can't binmode $filename";

    sysseek($fh, $byte_position, SEEK_CUR)  # NB: 0-based
        || die "couldn't see to byte $byte_position in $filename: $!";

    sysread($fh, $byte_value, $length) == $length
        || die "couldn't read byte from $filename: $!";

    return $byte_value;
}

Answer 1

展示你的 300 的例子

$turn="\x2c\x01";
print unpack("S",$turn);