Help for this page

Select Code to Download


  1. or download this
    perl -MDevel::Size=total_size -MDevel::Peek -e 'my @a; my $s = total_s
+ize(\@a);print "\nSIZE : $s\n";  Dump \@a, 1'

...
    MAX = -1
    ARYLEN = 0x0
    FLAGS = (REAL)
  2. or download this
    
sankaran@invest5.hyd:/u/sankaran/base/src/perl/Deshaw/PDL>  /usr/local
+/bin/perl5.10  -MDevel::Size=total_size -MDevel::Peek -e 'my @a; my $
+s = total_size(\@a);print "\nSIZE : $s\n";  Dump \@a, 1'
...
    ARYLEN = 0x0
    FLAGS = (REAL)