Help for this page

Select Code to Download


  1. or download this
    @hash_guts = (
       undef,
    ...
       undef,
       undef,
    );
    
  2. or download this
    bless([$key, $val], Node)
    
  3. or download this
    @hash1_guts = (  # scalar(%hash1) is 2/8
       undef,
    ...
       undef,
       [ $node7 ],
    );
    
  4. or download this
    @hash2_guts = (  # scalar(%hash2) is now 7/16
       [ $node1 ],
    ...
       [ $node7 ],
       undef,
    );