#!/usr/bin/perl -w
my
$workbook
= Excel::Writer::XLSX->new(
'stats.xlsx'
);
my
$worksheet
=
$workbook
->add_worksheet(
'Test data'
);
$worksheet
->set_column( 0, 0, 20 );
my
$format
=
$workbook
->add_format();
$format
->set_bold();
$worksheet
->
write
( 0, 0,
'Sample'
,
$format
);
$worksheet
->
write
( 0, 1, 1 );
$worksheet
->
write
( 0, 2, 2 );
$worksheet
->
write
( 0, 3, 3 );
$worksheet
->
write
( 0, 4, 4 );
$worksheet
->
write
( 0, 5, 5 );
$worksheet
->
write
( 0, 6, 6 );
$worksheet
->
write
( 0, 7, 7 );
$worksheet
->
write
( 0, 8, 8 );
$worksheet
->
write
( 1, 0,
'Length'
,
$format
);
$worksheet
->
write
( 1, 1, 25.4 );
$worksheet
->
write
( 1, 2, 25.4 );
$worksheet
->
write
( 1, 3, 24.8 );
$worksheet
->
write
( 1, 4, 25.0 );
$worksheet
->
write
( 1, 5, 25.3 );
$worksheet
->
write
( 1, 6, 24.9 );
$worksheet
->
write
( 1, 7, 25.2 );
$worksheet
->
write
( 1, 8, 24.8 );
$worksheet
->
write
( 4, 0,
'Count'
,
$format
);
$worksheet
->
write
( 4, 1,
'=COUNT(B1:I1)'
);
$worksheet
->
write
( 5, 0,
'Sum'
,
$format
);
$worksheet
->
write
( 5, 1,
'=SUM(B2:I2)'
);
$worksheet
->
write
( 6, 0,
'Average'
,
$format
);
$worksheet
->
write
( 6, 1,
'=AVERAGE(B2:I2)'
);
$worksheet
->
write
( 7, 0,
'Min'
,
$format
);
$worksheet
->
write
( 7, 1,
'=MIN(B2:I2)'
);
$worksheet
->
write
( 8, 0,
'Max'
,
$format
);
$worksheet
->
write
( 8, 1,
'=MAX(B2:I2)'
);
$worksheet
->
write
( 9, 0,
'Standard Deviation'
,
$format
);
$worksheet
->
write
( 9, 1,
'=STDEV(B2:I2)'
);
$worksheet
->
write
( 10, 0,
'Kurtosis'
,
$format
);
$worksheet
->
write
( 10, 1,
'=KURT(B2:I2)'
);