Re: functions that deal with hash should be more liberal

[Casey R. Tweten]

Today around 10:11am, John Porter hammered out this masterpiece:

: Casey R. Tweten wrote:
: > 
: > sub func {
: >   return qw/KeyOne Value1 KeyTwo Value2/;
: > }
: > 
: > print "$_\n" foreach keys &func();
: 
: Please.  There are ways -- well, just one way -- to do this, even in perl5.
: 
:       print "$_\n" foreach keys %{{ func() }};

Yes, there is.

Thank you for your input.

-- 
print(join(' ', qw(Casey R. Tweten)));my $sig={mail=>'[EMAIL PROTECTED]',site=>
'http://home.kiski.net/~crt'};print "\n",'.'x(length($sig->{site})+6),"\n";
print map{$_.': '.$sig->{$_}."\n"}sort{$sig->{$a}cmp$sig->{$b}}keys%{$sig};
my $VERSION = '0.01'; #'patched' by Jerrad Pierce <belg4mit at MIT dot EDU>