my %e = (join('', <>) =~ /\birgendwas(.+?)irgendwas(typ1|typ2)\b/gsi));
1
2
3
4
5
6
7
perl -MData::Dumper -wle '%e = reverse "a1b2a3b4" =~ m/(\w)(\w)/g; print Dumper \%e;'
$VAR1 = {
'1' => 'a',
'4' => 'b',
'3' => 'a',
'2' => 'b'
};
2012-08-07T08:31:16 LinuxerWie wär's mit einem reverse?
Code: (dl )1
2
3
4
5
6
7
8perl -MData::Dumper -wle
'%e = reverse "a1b2a3b4" =~ m/(\w)(\w)/g; print Dumper \%e;'
$VAR1 = {
'1' => 'a',
'4' => 'b',
'3' => 'a',
'2' => 'b'
};
my %e = reverse (join('', <>) =~