note
Pug
I have been on a map kick recently so...<br>
using 2 " and no ; / \ or enter keys<p>
<CODE>
#!/usr/bin/perl -l
%couples = (
Fred=>"Wilma",
Barney=>"Betty",
George=>"Jane",
Homer=>"Marge",
Pter=>"Lous"
);
map print, map "$_ is married to $couples{$_}",sort keys%couples
</CODE>
It weights in at 63 characters.<br>
I was reading the above posts and I was able to get this<br><CODE>
%c=%couples,map print,map "$_ is married to $c{$_}",sort keys%c
</CODE>
Which is 62 characters.<br>
Update.
Thanks for the getting rid of the extra map belg4mit.<p>
I don't know what I was thinking *grin*<br>
In a semi related note I used this when someone wanted to
a print out of the @INC. <br>
--<br>
Mortic
173613
173613