Conversione di numeri esadecimali in stringhe su numeri negativi, in Perl

Question

Ho un mucchio di numeri rappresentati come stringhe esadecimali nei file di log che vengono analizzati da uno script Perl, e sono relativamente inesperto con Perl.

Alcuni di questi numeri sono in realtà numeri negativi con segno, ovvero 0xFFFE == -2 quando rappresentati come numero intero con segno a 16 bit.

Qualcuno può dirmi il modo canonico di ottenere la rappresentazione firmata di questo numero dalla stringa FFFE in Perl, o altrimenti indicarmi un tutorial o un'altra risorsa?

Answer 1

È possibile utilizzare la funzione hex() per convertire da esadecimale a decimale, ma interpreta l'input come un valore senza segno. Per compensare questo, imballare il valore decimale come una quantità senza segno e decomprimerlo come firma uno:

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

's' The e modelli di 'S' sono per quantità a 16 bit con e senza segno, rispettivamente. Consultare la documentazione per la funzione pack per altri modelli e informazioni sull'utilizzo.

Answer 2

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