Re: [FWP] hasheesh

[Casey West <crt@kiski.net>]

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

:   sub hasheesh(&\%) {
:     my( $c, $h ) = @_;
:     local( $a, $b );
:     &$c while ( $a, $b ) = each %$h 
:   }
: 
: 
:   hasheesh { print "$a => $b\n" } %h;

I use something like this:

map {
     # processing here
     print "$_->[0] => $_->[1]\n"
    } map { [ each %ENV ] } keys %ENV;


In order to get the same effect.  I like yours much better for
situations where I need to do processing like this a lot. :)

-- 
Casey West


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