Or even more simply:
c:\@Work\Perl\monks>perl -wMstrict -le "use Data::Dumper; ;; my $s = qq{1 A\n2 B\n}; ;; my %h = $s =~ /(\d+)\s+(\S+)/g; print Dumper(\%h); " $VAR1 = { '1' => 'A', '2' => 'B' };
Give a man a fish: <%-{-{-{-<
In reply to Re: regex question
by AnomalousMonk
in thread regex question
by morgon
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |