¿Cómo puedo convertir cadenas hexagonales en números en Perl?

Question

Recientemente escribí una secuencia de comandos que analizó una representación de texto de un campo de un solo byte binario.

(no preguntes: - {)

Después de tocar el violín con sprintf por un tiempo me di por vencido y lo hizo;

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}; 

Lo que me sale con la suya, porque solo estoy usando 12 números, pero ¿hay una mejor manera de hacerlo?

Answer 1

Si tiene

$hex_string = "0x10"; 

que puede utilizar:

$hex_val = hex($hex_string); 

y obtendrá: $hex_val == 16

hex no requiere la "0x" en el comienzo de la cadena. Si falta, todavía traducirá una cadena hexagonal a un número.

También puede utilizar oct de traducir las cadenas binarias, octales o hexadecimales de números basados ​​en el prefijo:

• 0b - binario
• 0 - octal
• 0x - hexagonal

Answer 2

Ver hex y/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

Si entiendo correctamente, tiene 1 byte por mes, sin cadena "0x10", sino byte con 10.

De esta manera, se debe utilizar unpack:

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

de salida:

1 
2 
10 

Si la entrada es de 3 caracteres, como "x05", a continuación, cambiar también es bastante simple:

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