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