Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

The Bad, the Ugly, and the Good of autovivification

by tlm (Prior)
on Apr 08, 2005 at 02:06 UTC ( #445927=perlmeditation: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use strict;
    
    ...
    
    my $number_of_entities = keys %hoh;      # BONK!
    
  2. or download this
    my @big_in_assoc_1 = grep keys %{$assocs_1{$_}} > 25, keys %assocs_2;
    
    # ... tics later
    
    my @relative_complement = grep !exists %assocs_1{$_}, keys %assocs_2; 
    + # OUCH!
    
  3. or download this
    my $number_of_entities = grep defined $hoh{$_}, keys %hoh;     
    
  4. or download this
    my @big_in_assoc_1 =
      grep $assocs_1{$_} && keys %{$assocs_1{$_}} > 25,
      keys %assocs_2;
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlmeditation [id://445927]
Approved by bobf
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (11)
As of 2014-11-27 15:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (186 votes), past polls