Help for this page

Select Code to Download


  1. or download this
        if (AvARYLEN(thing)) {
          if (check_new(tv, AvARYLEN(thing))) {
            total_size += thing_size(AvARYLEN(thing), tv);
          }
        }
    
  2. or download this
    perl -MDevel::Peek -MDevel::Size=total_size -wle'
        my @a = qw( a b c );
    ...
        Dump(\@a,1);            # Shows magic
        print total_size \@a;   # 224
    '
    
  3. or download this
    perl -MDevel::Peek -MDevel::Size=total_size -wle'
        my @a = qw( a b c );
    ...
        Dump(\@a,1);            # Shows magic
        print total_size \@a;   # 224
    '