Perl: mit regex hex-codierten Zeichenfolge in einem Array analysiert

Question

ich ganz neu bin zu Perl-Entwicklung, und ich möchte eine folgende Aufgabe auszuführen:

Mein Skript hex-codierte Zeichenfolge als Befehlszeilen param empfängt . Dann muss ich diese Zeichenfolge decodieren und sie in die Ausgabedatei wie ein C++ - Array mit Initialisierung aus den angegebenen Daten schreiben. Zum Beispiel:

perl myscript.pl DEADBABEDEADBEEF und der Ausgang so etwas wie

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

Was ist der richtige Weg ist dies mit Perl Regex zu tun? Natürlich könnte ich es in einer Schleife mit Teilstrings durchführen, aber ich glaube, dass es elegantere Wege geben sollte.

BEARBEITEN: Die Eingabezeichenfolge hat eine feste Länge.

Answer 1

Try this:

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

Wie es funktioniert:

Zuerst $hex =~ /(..)/g in Listenkontext alle 2-Zeichen-Strings erfasst (die /g Markierungsmittel globale Übereinstimmung). Dann nimmt map() die Liste und wandelt sie in eine andere um, wobei der Ausdruck "0x$_" für jedes Element der ersten Liste verwendet wird ($_ ist hier ein Alias ​​für das Element).

Siehe auch perldoc -f map.

Answer 2

Wie wäre es damit:

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

Wie wäre es mit Auspacken?

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

Korrektur - Sie eine Karte benötigen würde jedes Element Präfix, das kehrt mit einem "0x"

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