Hi Andreas,
Is it absolutely necessary to use Text::Table? I really like Perl6::Form for this kind of thing. Here is a quick (recycled) example:
#!/usr/bin/perl -w
use strict;
use Perl6::Form;
my @barcodes=qw/8129348 2354234 234234534 21342134 23453421/;
my @prices = qw/625.50 626.35 234.23 546.54 3245.45/;
my @quants = qw/2 2 34 4 6/;
my @values = qw/21345 345345 345345 3453 34534/;
my $total = 0;
foreach(@values){$total+=$_};
print form
' ============================================================',
'| Goods in Stock |',
'|===========================================================|',
'| Barcode | Price | Quantity | Value |',
'|-------------+---------------+-------------+---------------|',
'| {[[[[[[[[[} | {$]]]]]].[[[} | {]]]]]]]]]} | {$]]]]]]].[[[}|',
\@barcodes, \@prices, \@quants, \@values,
'|===========================================================|',
'| Total Value In Stock {$]]]]]]].[[[}|',
$total,
' =========================================================== ',
;
Produces:
===========================================================
| Goods in Stock |
|===========================================================|
| Barcode | Price | Quantity | Value |
|-------------+---------------+-------------+---------------|
| 8129348 | $625.5 | 2 | $21345.0 |
| 2354234 | $626.35 | 2 | $345345.0 |
| 234234534 | $234.23 | 34 | $345345.0 |
| 21342134 | $546.54 | 4 | $3453.0 |
| 23453421 | $3245.45 | 6 | $34534.0 |
|===========================================================|
| Total Value In Stock $750022.0 |
===========================================================