There is a string as:
$string= 123456-9876;
Need to split it in array as follows:
$string = [12,34,56,98,76]
trying to split it as split('-',$string) is not serving the purpose. How could i do that in perl?
2 Answers
Extract pairs of digits: (e.g. "1234-5678" ⇒ [12,34,56,78])
$string = [ $string =~ /\d\d/g ];
Extract pairs of digits, even if separated by non-digits: (e.g. "1234-567-8" ⇒ [12,34,56,78])
$string = [ $string =~ s/\D//rg =~ /../sg ];
Comments
Rather than splitting, you can capture all 2 digit numbers with this perl code,
$str = "123456-9876";
my @matches = $str =~ /\d{2}/g;
print "@matches\n";
Prints,
12 34 56 98 76
Another solution, that just groups two digits no matter whatever, wherever non-digits are present in the string, without mutating the original string
$string = "1dd23-dsd--456-9-876";
while($string =~ /(\d).*?(\d)/g) {
print "$1$2 ";
}
Prints,
12 34 56 98 76
answered Dec 3, 2018 at 15:48
Pushpesh Kumar Rajwanshi
18.4k2 gold badges22 silver badges39 bronze badges
$string = [ $string =~ /(\d\d)/g ]([^-].)