37

How do I take a string in Perl and split it up into an array with entries two characters long each?

I attempted this:

@array = split(/../, $string);

but did not get the expected results.

Ultimately I want to turn something like this

F53CBBA476

in to an array containing

F5 3C BB A4 76
0

5 Answers 5

60
@array = ( $string =~ m/../g );

The pattern-matching operator behaves in a special way in a list context in Perl. It processes the operation iteratively, matching the pattern against the remainder of the text after the previous match. Then the list is formed from all the text that matched during each application of the pattern-matching.

0
43

If you really must use split, you can do a :

grep {length > 0} split(/(..)/, $string);

But I think the fastest way would be with unpack :

unpack("(A2)*", $string);

Both these methods have the "advantage" that if the string has an odd number of characters, it will output the last one on it's own.

2
  • Since it looks like he is working with hex characters, so this is a bit of a moot point, but A only works for ASCII characters. The split should work for any encoding, but you might want to add a /s to the regex so "\n" will be matched by ".". Apr 28, 2009 at 21:34
  • 3
    Should be a2, not A2. The former strips trailing whitespace, which is at best superfluous.
    – ikegami
    May 19, 2011 at 16:28
7

Actually, to catch the odd character, you want to make the second character optional:

@array = ( $string =~ m/..?/g );
1
  • 1
    yup, but it's way slower than unpack.
    – mat
    Dec 16, 2008 at 22:55
6

The pattern passed to split identifies what separates that which you want. If you wanted to use split, you'd use something like

my @pairs = split /(?(?{ pos() % 2 })(?!))/, $string;

or

my @pairs = split /(?=(?:.{2})+\z)/s, $string;

Those are rather poor solutions. Better solutions include:

my @pairs = $string =~ /..?/sg;  # Accepts odd-length strings.

my @pairs = $string =~ /../sg;

my @pairs = unpack '(a2)*', $string;
0
1

I see a more-intuitive (if perhaps less-efficient) way to solve this issue: slice-off the required 2-character strings from the string with "substr" and push them onto the array with "push":

# Start with a string (a hex number in this case):
my $string = "526f62626965204861746c6579";

# Declare an array to hold the desired 2-char snippets:
my @array; 

# Snip snippets from string and put in array:
while ($string) {push @array, substr($string,0,2,"");}

# Say, those look like ASCII codes, don't they?
for (@array) {print chr(hex($_));}

Run that and see what it prints. :-)

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Not the answer you're looking for? Browse other questions tagged or ask your own question.