#!/usr/bin/perl -w
%couples = (
    Fred=>"Wilma",
    Barney=>"Betty",
    George=>"Jane",
    Homer=>"Marge",
    Peter=>"Lois"
);
print "$_ is married to $couples{$_}\n" for (sort keys %couples);
[download]

foreach $key (sort keys %couples) {print "$key is married to $couples{
+$key}\n"};
[download]

foreach (sort keys %couples) {print "$_ is married to $couples{$_}\n"}
+;
[download]

for (sort keys %couples) {print "$_ is married to $couples{$_}\n"};
[download]

print "$_ is married to $couples{$_}\n" for (sort keys %couples);
[download]

#        1         2         3         4         5         6
#23456789012345678901234567890123456789012345678901234567890
print"$_ is married to $couples{$_}\n"for sort keys%couples
[download]

#        1         2         3         4         5         6
#2345678901234567890123456789012345678901234567890123456789012
print map{"$_ is married to $couples{$_}\n"}sort keys%couples
[download]

Building off mrbbking, why don't we try and get rid of \n. After thinking and messing around bit, I ended up using $*: The multiline matching variable. I'd love to know *why* this works, and if it's compatible with *nix, as I used activestate.

Update: Tested on a FreeBSD shell, and it *does* work, as long as we run it with perl -l...

Please don't run this with warnings, as it won't work because $* is a deprecated special variable.

Here Goes: Still 59 Letters

#! perl -l
%couples = (
    Fred=>"Wilma",
    Barney=>"Betty",
    George=>"Jane",
    Homer=>"Marge",
    Peter=>"Lois"
);
print"$_ is married to $couples{$_}$*"for sort keys%couples
[download]

Another idea that may or may not have merit is to set %couples to a shorter word, and call that in the print. Something that would (logically) be *like*

print"$_ is married to $c{$_}$*"for sort keys(%c=%couples)
[download]

That code doesn't work, though, and would save you just one character.

Update 2: I found it strange that I was getting newlines, instead of 0 or 1 from $*, so I investigated. From perldoc perlrun: -l enables automatic line-ending processing. If octnum is omitted, sets $\ to the current value of $/. That means that there's no reason to use $*, as -l will give us $/, anyways.

You will then realize that the previous answers would be correct, if we got rid of \n, or in my case $* (-l chops the last letter off in addition, which meant that my $* which should have been evaluated as 0 or 1, was being chopped off and replaced by a newline ($/). Strage, but we don't even need to print newlines, with perl -l :)

That means: print"$_ is married to $couples{$_}"for sort keys%couples can replace the respective line in the previous solution(s)

---

Gyan Kapur
gyan.kapur@rhhllp.com

Damn keys

print"$_ is married to $a{$_}$*"for sort keys%{*a=*couples}
[download]

is the same whereas

print"$_ is married to $a{$_}$*"for sort keys*a=*couples
[download]

is no go and

print"$_ is married to $a{$_}$*"for sort keys%a=%couples
[download]

is just not right...

--
perl -pew "s/\b;([mnst])/'$1/g"

the 2 entries below are close, but using "\n" disqualifies them. What options in perl could take the place of a newline? (or is this a trick?)

print "$_ is married to $couples{$_}<br>" for(sort keys %couples)

You don't need a newline. You need a <br> tag. The output is going to an HTML file.

You don't need a newline. You need a <br> tag. The output is going to an HTML file

The requirement is...
print out the couple's information as formatted above to STDOUT

The final output might be to HTML but the output of this code does need newlines.

print"$_ is married to $couples{$_}",chr 0x0a for sort keys%couples

just tr/0x0a/0x0d/ if your system uses that for newline. and, at 76 chars (ever so short of the limit...), the same code with microsoft newline:

print"$_ is married to $couples{$_}",chr 0x0d, chr 0x0a for sort keys%couples

~Cybercosis

Unless you have done binmode STDOUT, you can print "\n" and it will print the appropriate newline for your system, including those with a two character newline (CP/M and DOS use "\x0D\x0A").

Also, why use chr 0x0a instead of the shorter chr 10?

map{print"$_ is married to $couples{$_}".chr 10}sort keys%couples}

or:

map{print"$_ is married to $couples{$_}<br>"}sort keys%couples}

The latter, of course, only newlines in HTML.

Update: print"$_ is married to $couples{$_}<br>"for sort keys%couples :)

map{print qq{$_ is married to $couples{$_}@{[chr 10]}}}sort keys%coupl
+es
[download]

Abigail

My approch was similar.

Without using any slashes, backslashes, semi-colons, command line options, only two double quotes, and using 64 characters:

printf"$_ is married to $couples{$_}%c",10 for sort keys%couples
[download]

Changing the double-quotes into  qq{} makes it 67 characters.

Of course, mine fails if anyone has a % in their name. In real Golf, it is the sort of thing they would update the test script to catch.

The most evil newline variant I considered was:

$:=~m{.(.)}s and print "something$1"
[download]

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`
[download]

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).

#        1         2         3         4         5         6
#234567890123456789012345678901234567890123456789012345678901234
{(@c=each%couples)&&printf("%s is married to %s%c",@c,10)&&redo}
[download]

# Update: trickier, same char. count
{(@c=each%couples)?printf("%s is married to %s%c",@c,10)&redo:1}
[download]

$c=[{Fred=>1,
     Barney=>2,
     George=>3,
     Homer=>4,
     Peter=>5}
    "Wilma",
    "Betty",
    "Jane",
    "Marge",
    "Lois"
];
while(my($h,$w)=each %$c){print"$h is married to $w\n";}
[download]

#!/usr/bin/perl -w -l
%couples = (
    Fred=>"Wilma",
    Barney=>"Betty",
    George=>"Jane",
    Homer=>"Marge",
    Peter=>"Lois"
);
print"$h is married to $w"while(($h,$w)=each%couples)
[download]

#!/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
[download]

%c=%couples,map print,map "$_ is married to $c{$_}",sort keys%c
[download]

I don't know what I was thinking *grin*
In a semi related note I used this when someone wanted to a print out of the @INC.
--
Mortic

map print("$_ is married to $couples{$_}"),sort keys%couples

60 char, who needs a semi-colon? map map is inefficient and in this case wasteful.

--
perl -pew "s/\b;([mnst])/'$1/g"

#!/usr/bin/perl -l

#23456789_123456789_123456789_123456789_123456789_123456789_
sub _{print shift()." is married to ".shift while@_}_ sort
%couples = (
    Fred=>"Wilma",
    Barney=>"Betty",
    George=>"Jane",
    Homer=>"Marge",
    Peter=>"Lois"
);
[download]

Update: Ah, err, uh, whoops... LOL! This is a non-working solution. It's really amusing who's married to whom in it though! Sorry about that, apparently my eyesight is going (i thought it looked fine until i retested a couple minutes ago) -- it must be time to go home...