Help for this page

Select Code to Download

Select or download this

my @mean123=map( ($t->elm($_,'value1')+$t->elm($_,'value2')+$t->elm($_
+,'value3'))/3.0, 0..$t->nofRow()-1);

$t->addCol(\@mean123, 'Mean123');

print $t->csv;

Select or download this

$t->addCol(undef, 'Mean45'); # add a new column

...
    $t->setElm($i, 'Mean45', ($r->{'value4'}+$r->{'value5'})/2.0);
}
print $t->csv;