samizdat has asked for the wisdom of the Perl Monks concerning the following question:
use Spreadsheet::SimpleExcel; … my $excel = Spreadsheet::SimpleExcel->new(); ... for $ptest (@testit) { gendevexcel($ptest, $howfar, $ourt, $excel); } … $excel->output_to_file("./ursh400-050420-G.xls") or die $excel->errstr +(); … sub gendevexcel { my ($pint, $far, $ours, $excel) = @_; ... my @headr = ("Part Num", "Temp."); foreach my $d (@gooddevarray) { push(@headr, $d); } my @data = ([('')]); push (@data, ["$pint - " . $pinnames{$pinnum}]); push (@data, [('')]); … push (@data, [@]); … $excel->add_worksheet("$pint",{ -headers => \@headr, -data => \@data }); … }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Excel changes?
by dragonchild (Archbishop) on Apr 21, 2005 at 15:13 UTC | |
by samizdat (Vicar) on Apr 21, 2005 at 15:21 UTC | |
by dragonchild (Archbishop) on Apr 21, 2005 at 15:25 UTC |