Perl:用regex将十六进制编码的字符串解析成数组

试试这个:

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

$hex =~ /(..)/g /g map() "0x$_" $_ 这里是元素的别名)。

perldoc -f map .

这个怎么样:

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

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

更正-您需要一个映射来为解包返回的每个元素加上前缀“0x”

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