问题
I have a bunch of numbers represented as hexadecimal strings in log files that are being parsed by a Perl script, and I'm relatively inexperienced with Perl.
Some of these numbers are actually signed negative numbers, i.e. 0xFFFE == -2 when represented as a 16-bit signed integer.
Can somebody please tell me the canonical way of getting the signed representation of this number from the string FFFE in Perl, or otherwise point me to a tutorial or other resource?
回答1:
You can use the hex() function to convert from hexadecimal to decimal, but it interprets the input as an unsigned value. To compensate for that, pack the decimal value as an unsigned quantity and unpack it as a signed one:
my $num = unpack('s', pack('S', hex('FFFE')));
The 's' and 'S' templates are for signed and unsigned 16-bit quantities, respectively. See the documentation for the pack function for other templates and usage information.
回答2:
print unpack('s>', pack('H4', 'FFFE'));
-2
来源：https://stackoverflow.com/questions/2111839/converting-hexadecimal-numbers-in-strings-to-negative-numbers-in-perl