Help for this page

Select Code to Download


  1. or download this
    $VAR1 = [
          'AB',
...
           '2',
           'Traverse1'
         ];
  2. or download this
    Traverse
AB        4 
...
Subtotal    8

Total        16
  3. or download this
    my $size = scalar(@f);
for ( my $i=0;$i<$size;$i++ ) {
my $key = "$f[$i]->[0]";
$result{$key}->[0] += $f[$i]->[1]; 
}
  4. or download this
    Traverse
AB        4 
...
Subtotal    8

Total        16