Question

How to split a string into chunks of two characters each in Perl

Answer 1

$string = "abcdefghijk";
@chunks;

while ($string =~ /(.{1,2})/g) {
    push @chunks, $1;
}

print "Chunks of two characters:\n";
print "$_\n" for @chunks;

 
 
 
## run:
##
## Chunks of two characters:
## ab
## cd
## ef
## gh
## ij
## k
##

 

70+ SQL courses for beginners and professionals

Answer 2

$string = "abcdefghijk";

@chunks = unpack("(A2)*", $string);

print "Chunks of two characters:\n";
print "$_\n" for @chunks;
 
 
 
## run:
##
## Chunks of two characters:
## ab
## cd
## ef
## gh
## ij
## k
##

 

70+ SQL courses for beginners and professionals

Answer 3

$string = "abcdefghijk_l";

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

print "Chunks of two characters:\n";
print "$_\n" for @chunks;

 
 
 
## run:
##
## Chunks of two characters:
## ab
## cd
## ef
## gh
## ij
## k_
##

 

70+ SQL courses for beginners and professionals