Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

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 drinking their drinks and smoking their pipes about the Monastery: (8)
As of 2016-07-25 16:13 GMT
Find Nodes?
    Voting Booth?
    What is your favorite alternate name for a (specific) keyboard key?

    Results (224 votes). Check out past polls.