1#!/usr/local/bin/perl -w
2
3###############################################################################
4#
5# A simple example of how to use functions with the Spreadsheet::WriteExcel
6# module.
7#
8# reverse('�'), March 2001, John McNamara, jmcnamara@cpan.org
9#
10
11use strict;
12use Spreadsheet::WriteExcel;
13
14# Create a new workbook and add a worksheet
15my $workbook  = Spreadsheet::WriteExcel->new("stats.xls");
16my $worksheet = $workbook->add_worksheet('Test data');
17
18# Set the column width for columns 1
19$worksheet->set_column(0, 0, 20);
20
21
22# Create a format for the headings
23my $format = $workbook->add_format();
24$format->set_bold();
25
26
27# Write the sample data
28$worksheet->write(0, 0, 'Sample', $format);
29$worksheet->write(0, 1, 1);
30$worksheet->write(0, 2, 2);
31$worksheet->write(0, 3, 3);
32$worksheet->write(0, 4, 4);
33$worksheet->write(0, 5, 5);
34$worksheet->write(0, 6, 6);
35$worksheet->write(0, 7, 7);
36$worksheet->write(0, 8, 8);
37
38$worksheet->write(1, 0, 'Length', $format);
39$worksheet->write(1, 1, 25.4);
40$worksheet->write(1, 2, 25.4);
41$worksheet->write(1, 3, 24.8);
42$worksheet->write(1, 4, 25.0);
43$worksheet->write(1, 5, 25.3);
44$worksheet->write(1, 6, 24.9);
45$worksheet->write(1, 7, 25.2);
46$worksheet->write(1, 8, 24.8);
47
48# Write some statistical functions
49$worksheet->write(4,  0, 'Count', $format);
50$worksheet->write(4,  1, '=COUNT(B1:I1)');
51
52$worksheet->write(5,  0, 'Sum', $format);
53$worksheet->write(5,  1, '=SUM(B2:I2)');
54
55$worksheet->write(6,  0, 'Average', $format);
56$worksheet->write(6,  1, '=AVERAGE(B2:I2)');
57
58$worksheet->write(7,  0, 'Min', $format);
59$worksheet->write(7,  1, '=MIN(B2:I2)');
60
61$worksheet->write(8,  0, 'Max', $format);
62$worksheet->write(8,  1, '=MAX(B2:I2)');
63
64$worksheet->write(9,  0, 'Standard Deviation', $format);
65$worksheet->write(9,  1, '=STDEV(B2:I2)');
66
67$worksheet->write(10, 0, 'Kurtosis', $format);
68$worksheet->write(10, 1, '=KURT(B2:I2)');
69
70__END__
71