Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: perl puzzle - cartoon couple registry (beginner, semi-golf)

by danger (Priest)
on Jun 13, 2002 at 04:19 UTC ( #174100=note: print w/ replies, xml ) Need Help??


in reply to perl puzzle - cartoon couple registry (beginner, semi-golf)

If they're paying me for 80 characters then 80 characters they'll get!

#!/usr/bin/perl %couples = ( Fred=>"Wilma", Barney=>"Betty", George=>"Jane", Homer=>"Marge", Peter=>"Lois" ); print`perl -lne'tr! ",!!d and s!=>(?=[A-Z])! is married to ! and print +' $0|sort`

I mean, if we don't use our budget of 80 characters this time around, they'll just budget 70 characters for us next time! (and I'm hiding my spare double quote for an emergency, so don't ask me if you used up both of yours).


Comment on Re: perl puzzle - cartoon couple registry (beginner, semi-golf)
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://174100]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (4)
As of 2016-02-13 05:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How many photographs, souvenirs, artworks, trophies or other decorative objects are displayed in your home?





    Results (419 votes), past polls