Perl: analizzare la stringa esadecimale codificata in array con regex

Question

Sono abbastanza nuovo per lo sviluppo di Perl, e mi piacerebbe svolgere un compito seguente:

Il mio script riceve stringa esadecimale-codificato come da riga di comando param . Quindi devo decodificare questa stringa e scriverla in un file di output come un array C++ con inizializzazione dai dati forniti. Per esempio:

perl myscript.pl DEADBABEDEADBEEF e l'uscita qualcosa come

const boost::array<char, 8> MyArray = { 0xDE, 0xAD, 0xBA, 0xBE, 0xDE, 0xAD, 0xBE, 0xEF };

Qual è il modo giusto per fare questo con il Perl regex? Certo, potrei eseguirlo in loop con sottostringhe, ma credo che ci dovrebbe essere un modo più elegante.

MODIFICA: la stringa di input è di lunghezza fissa.

Answer 1

Prova questo:

my $hex = "DEADBABEDEADBEEF"; 
my @a = map "0x$_", $hex =~ /(..)/g; 

Come funziona:

In primo luogo, $hex =~ /(..)/g in contesto lista cattura tutte le sottostringhe 2 caratteri (i /g mezzi bandiera partita globale). Quindi lo map() prende l'elenco e lo trasforma in un altro, usando l'espressione "0x$_" per ogni elemento del primo elenco ($_ qui c'è un alias per l'elemento).

Vedere anche perldoc -f map.

Answer 2

ne dite di questo:

my $input = $ARGV[0]; 
die "Fouled up input" unless $input =~ /^(?:[0-9A-F]{2})+$/i; 
my $bytes = length ($input)/2; 
print "const boost::array<char, $bytes> MyArray = {"; 
while ($input =~ s/([0-9A-F]{2})//i) { 
    # print $input # to see how this works, see comment. 
    print "0x$1, "; 
} 
print "};\n"; 

Answer 3

Che ne dici di decomprimere?

print join ",", unpack("(A2)*", "DEADBABEDEADBEEF"); 

Correzione - avresti bisogno di una mappa per precedere ogni elemento che spacchettare torna con un "0x"

print join ",", map { '0x' . $_ } unpack("(A2)*", "DEADBABEDEADBEEF");