#!/usr/bin/perl -w
my
$workbook
= Excel::Writer::XLSX->new(
'stocks.xlsx'
);
my
$worksheet
=
$workbook
->add_worksheet();
$worksheet
->set_column( 0, 3, 15 );
my
$header
=
$workbook
->add_format();
$header
->set_bold();
$header
->set_size( 12 );
$header
->set_color(
'blue'
);
my
$f_price
=
$workbook
->add_format();
$f_price
->set_align(
'left'
);
$f_price
->set_num_format(
'$0.00'
);
my
$f_volume
=
$workbook
->add_format();
$f_volume
->set_align(
'left'
);
$f_volume
->set_num_format(
'#,##0'
);
my
$f_change
=
$workbook
->add_format();
$f_change
->set_align(
'left'
);
$f_change
->set_num_format(
'[Green]0.0%;[Red]-0.0%;0.0%'
);
$worksheet
->
write
( 0, 0,
'Company'
,
$header
);
$worksheet
->
write
( 0, 1,
'Price'
,
$header
);
$worksheet
->
write
( 0, 2,
'Volume'
,
$header
);
$worksheet
->
write
( 0, 3,
'Change'
,
$header
);
$worksheet
->
write
( 1, 0,
'Damage Inc.'
);
$worksheet
->
write
( 1, 1, 30.25,
$f_price
);
$worksheet
->
write
( 1, 2, 1234567,
$f_volume
);
$worksheet
->
write
( 1, 3, 0.085,
$f_change
);
$worksheet
->
write
( 2, 0,
'Dump Corp.'
);
$worksheet
->
write
( 2, 1, 1.56,
$f_price
);
$worksheet
->
write
( 2, 2, 7564,
$f_volume
);
$worksheet
->
write
( 2, 3, -0.015,
$f_change
);
$worksheet
->
write
( 3, 0,
'Rev Ltd.'
);
$worksheet
->
write
( 3, 1, 0.13,
$f_price
);
$worksheet
->
write
( 3, 2, 321,
$f_volume
);
$worksheet
->
write
( 3, 3, 0,
$f_change
);