Come posso convertire stringhe esadecimali in numeri in Perl?

Question

Recentemente ho scritto uno script che ha analizzato una rappresentazione testuale di un singolo campo mese byte binario.

(Non chiedere: - {)

Dopo armeggiare con sprintf per un po 'ho rinunciato e fatto questo;

our %months = qw/x01 1 
     x02 2 
     x03 3 
     x04 4 
     x05 5 
     x06 6 
     x07 7 
     x08 8 
     x09 9 
     x0a 10 
     x0b 11 
     x0c 12 /; 
... 
my $month = $months{$text}; 

Quale scappare, perché sto usando solo 12 numeri, ma c'è un modo migliore per farlo?

Answer 1

Se hai

$hex_string = "0x10"; 

è possibile utilizzare:

$hex_val = hex($hex_string); 

e si otterrà: $hex_val == 16

hex non richiede il "0x" alla inizio della stringa. Se manca, tradurrà ancora una stringa esadecimale in un numero.

È inoltre possibile utilizzare oct di tradurre binario, ottale o esadecimale stringhe in numeri in base al prefisso:

• 0b - binario
• 0 - ottale
• 0x - hex

Answer 2

Vedere hex e/o oct.

#!/usr/bin/perl 

use strict; 
use warnings; 

my @months = map hex, qw/x01 x02 x03 x04 x05 x06 x07 x08 x09 x0a x0b x0c/; 
print "$_\n" for @months; 

Answer 3

Se ho capito bene hai 1 byte al mese - non una stringa "0x10", ma piuttosto un byte con 10 in esso.

In questo modo, si dovrebbe usare unpack:

my $in = "\x0a"; 
print length($in), "\n"; 
my ($out) = unpack("c", $in); 
print length($out), "\n", $out, "\n" 

uscita:

1 
2 
10 

Se l'ingresso sono 3 personaggi, come "x05", quindi modificando è anche abbastanza semplice:

my $in = "x0a"; 
my $out = hex($in);