Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

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?

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (6)
As of 2016-10-28 16:57 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (386 votes). Check out past polls.