Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Re:x2 Counting keys with defined or undefined elements in a hash

by jsprat (Curate)
on Jun 05, 2003 at 18:46 UTC ( [id://263453] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    sub by_for {
        my $h = shift;
    ...
        $def[ defined $_ ? 1 : 0]++ for values %$h;
        @def;
    }