Help for this page

Select Code to Download


  1. or download this
    c:\Perl\test>p1
[0] Perl> use Devel::Size qw[ total_size ];;
...
[0] Perl> $_.='' for @a;;
[0] Perl> print total_size( \@a );;
34000056
  2. or download this
    c:\Perl\test>p1
[0] Perl> use Devel::Size qw[ total_size ];;
...
[0] Perl> $_.='' for @a;;
[0] Perl> print total_size( \@a );;
75000056