Perl Monk, Perl Meditation | |
PerlMonks |
Re: Regarding arraysby Random_Walk (Prior) |
on May 23, 2007 at 11:55 UTC ( [id://616983]=note: print w/replies, xml ) | Need Help?? |
perl -le'@a1=qw(ME K LE K HT ME LL);@a2=qw(10 4 1 5 6 7 19);map{$o{$_}+=shift@a2}@a1;print"$_=$o{$_}" for sort keys %o'
Cheers,
Pereant, qui ante nos nostra dixerunt!
In Section
Seekers of Perl Wisdom
|
|