Help for this page

Select Code to Download


  1. or download this
    CASE1:
my @result = map $_*2, @list;
  2. or download this
    @result = join (',',@result);
  3. or download this
    CASE2:
my @result = map $_*55, @list;
  4. or download this
    @result = join (',',@result);
  5. or download this
    #!/usr/local/bin/perl
use strict;
...

print qq(the size of "@list" is: ).total_size(\@list). " Bytes\n";
print qq(the size of "@result" is: ).total_size(\@result)." Bytes\n";