Help for this page

Select Code to Download


  1. or download this
    >perl -MDevel::Size=total_size -MDevel::Peek -e"my @a; total_size(\@a)
+ if $ARGV[0]; Dump \@a,1" 0
SV = RV(0x239ba8) at 0x239b9c
...
    MAX = -1
    ARYLEN = 0x0
    FLAGS = (REAL)
  2. or download this
    >perl -MDevel::Size=total_size -MDevel::Peek -e"my @a; $#a if $ARGV[0]
+; Dump \@a,1" 0
SV = RV(0x239260) at 0x239254
...
    MAX = -1
    ARYLEN = 0x239254
    FLAGS = (REAL)