16 lines
340 B
Perl
16 lines
340 B
Perl
|
#!/usr/bin/perl
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use Spreadsheet::WriteExcel;
|
||
|
|
|
||
|
|
print "Start\n";
|
||
|
|
|
||
|
|
my $workbook = Spreadsheet::WriteExcel->new("BA_Data.ods");
|
||
|
|
my $worksheet = $workbook->add_worksheet();
|
||
|
|
my ($x,$y) = (0,0);
|
||
|
|
my @list = qw(13,92 12,98 101,13);
|
||
|
|
foreach my $c (@list){
|
||
|
|
$worksheet->write($x, $y++, $c);
|
||
|
|
}
|
||
|
|
$workbook->close();
|
||
|
|
|