Re: [FWP] Re: HUMOR: you have to see this code!

[John Porter <jdporter@min.net>]

Charles H wrote:
> Yes, it's weird, and yes it's almost funny. But it probably does what he wanted it to
> do...

Bet it doesn't.

sub get_numeric_keys_greater_than_passed_value($;\%){
        if(!$_[1]){
        local ($val) = @_;
        local (@temp) = grep{($_ > $val)} keys (%LADY_TABLE);
        }
        else{
        local ($val,*TABLE) = @_;
        local (@temp) = grep{($_ > $val)} keys (%TABLE);
        }
        return (*temp);
}

What the hell does this return?  What happened to the
keys that were so carefully grepped?

-- 
John Porter


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe