Help for this page

Select Code to Download


  1. or download this
    sankaran@desb0018.nyc:> /usr/local/perl-5.8.6/bin/perl -e 'use Devel::
+Size; my @arr; foreach my $i (1..10) { push (@arr, $i); }; my $size =
+ Devel::Size::total_size(\@arr); print "\nSIZE : $size\n";'

SIZE : 260
  2. or download this
    sankaran@desb0018.nyc:> /usr/local/bin/perl5.10 -e 'use Devel::Size; m
+y @arr; foreach my $i (1..10) { push (@arr, $i); }; my $size = Devel:
+:Size::total_size(\@arr); print "\nSIZE : $size\n";'

SIZE : 528