Konvertieren von hexadezimalen Zahlen in Strings in negative Zahlen, in Perl

Question

Ich habe eine Reihe von Zahlen als hexadezimale Zeichenfolgen in Protokolldateien, die von einem Perl-Skript analysiert werden, und ich bin relativ unerfahren mit Perl.

Einige dieser Nummern sind tatsächlich mit negativen Zahlen versehen, d. H. , wenn sie als 16-Bit-Ganzzahl mit Vorzeichen dargestellt sind.

Kann mir bitte jemand den kanonischen Weg sagen, die vorzeichenbehaftete Darstellung dieser Nummer aus der Zeichenkette FFFE in Perl zu erhalten, oder mich anderweitig auf ein Tutorial oder eine andere Ressource verweisen?

Answer 1

Sie können die Funktion hex() verwenden, um von hexadezimal in dezimal zu konvertieren, aber sie interpretiert die Eingabe als vorzeichenlosen Wert. Um das zu kompensieren, packen den Dezimalwert als unsigned Menge und entpacken als schriebenes:

my $num = unpack('s', pack('S', hex('FFFE'))); 

Die ‚s‘ und ‚S‘ templates sind für signierte und unsignierte 16-Bit-Mengen sind. Informationen zu anderen Vorlagen und Verwendungsinformationen finden Sie in der Dokumentation zur pack-Funktion.

Answer 2

print unpack('s>', pack('H4', 'FFFE')); 
-2