Data/TableAutoSum version 0.05 ============================== INSTALLATION To install this module type the following: perl Makefile.PL make make test make install Note that the test can take a little time. At my 1.1 GHz computer, it needs 80 seconds. SYNOPSIS use Data::TableAutoSum; my $table = Data::TableAutoSum->new(rows => 10, cols => 20); # or my $table = Data::TableAutoSum->new(rows => ['New York', 'L.A.', 'Chicago'], foreach my $row ($table->rows()) { foreach my $col ($table->cols()) { $table->data($row,$col) = rand(); $table->data($row,$col) += $table->data($row-1,$col-1) if $row >= 1 && $col >= 1; } } $table->change(sub {$_ = int ($_ / 10)}); # World War III perhaps print "Row $_ has result: ",$table->rowresult($_) for $table->rows(); print "Col $_ has result: ",$table->colresult($_) for $table->cols(); print "Table has the total result: ",$table->totalresult(); print "Let's have a look to the whole table:\n", $table->as_string; $table->store('random.dat'); my $old_random_data = Data::TableAutoSum->read('random.dat'); REQUIREMENTS Params::Validate Regexp::Common Set::Scalar List::Util Tie::File Math::Random # for the tests Set::CrossProduct Data::Dumper Test::More Test::Exception Test::Builder SEE ALSO Data::Xtab, Data::Pivot, Table::Pivoter AUTHOR Janek Schleicher, COPYRIGHT AND LICENSE Copyright 2002 by Janek Schleicher This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.