| [reply] [Watch: Dir/Any] [d/l] |
>perl -wMstrict -le
"my $s = '12ab34cd56ef78';
my @pairs;
push @pairs, [ $+{A}, $+{B} ]
while $s =~ m{ (?<A>[[:alpha:]]) (?<B>[[:alpha:]]) }xmsg;
use Data::Dumper;
print Dumper \@pairs;
"
$VAR1 = [
[
'a',
'b'
],
[
'c',
'd'
],
[
'e',
'f'
]
];
| [reply] [Watch: Dir/Any] [d/l] [select] |
Probably not much help in this particular case...
actually it's getting better now! :D
....it's possible to take the values of the hash!
push @pairs, [ values %+ ] while $s =~ m{ (?<A>[[:alpha:]]) (?*[[:alpha:]]) }xmsg;
unfortunately the hash is not set when the groupings are not named ... :(
| [reply] [Watch: Dir/Any] [d/l] |