-
Notifications
You must be signed in to change notification settings - Fork 16
/
sales.pl
106 lines (81 loc) · 3.08 KB
/
sales.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
#!/usr/bin/perl -w
###############################################################################
#
# Example of a sales worksheet to demonstrate several different features.
# Also uses functions from the L<Spreadsheet::WriteExcel::Utility> module.
#
# reverse('©'), October 2001, John McNamara, jmcnamara@cpan.org
#
use strict;
use Spreadsheet::WriteExcel;
use Spreadsheet::WriteExcel::Utility;
# Create a new workbook and add a worksheet
my $workbook = Spreadsheet::WriteExcel->new("sales.xls");
my $worksheet = $workbook->add_worksheet('May Sales');
# Set up some formats
my %heading = (
bold => 1,
pattern => 1,
fg_color => 19,
border => 1,
align => 'center',
);
my %total = (
bold => 1,
top => 1,
num_format => '$#,##0.00'
);
my $heading = $workbook->add_format(%heading);
my $total_format = $workbook->add_format(%total);
my $price_format = $workbook->add_format(num_format => '$#,##0.00');
my $date_format = $workbook->add_format(num_format => 'mmm d yyy');
# Write the main headings
$worksheet->freeze_panes(1); # Freeze the first row
$worksheet->write('A1', 'Item', $heading);
$worksheet->write('B1', 'Quantity', $heading);
$worksheet->write('C1', 'Price', $heading);
$worksheet->write('D1', 'Total', $heading);
$worksheet->write('E1', 'Date', $heading);
# Set the column widths
$worksheet->set_column('A:A', 25);
$worksheet->set_column('B:B', 10);
$worksheet->set_column('C:E', 16);
# Extract the sales data from the __DATA__ section at the end of the file.
# In reality this information would probably come from a database
my @sales;
foreach my $line (<DATA>) {
chomp $line;
next if $line eq '';
# Simple-minded processing of CSV data. Refer to the Text::CSV_XS
# and Text::xSV modules for a more complete CSV handling.
my @items = split /,/, $line;
push @sales, \@items;
}
# Write out the items from each row
my $row = 1;
foreach my $sale (@sales) {
$worksheet->write($row, 0, @$sale[0]);
$worksheet->write($row, 1, @$sale[1]);
$worksheet->write($row, 2, @$sale[2], $price_format);
# Create a formula like '=B2*C2'
my $formula = '='
. xl_rowcol_to_cell($row, 1)
. "*"
. xl_rowcol_to_cell($row, 2);
$worksheet->write($row, 3, $formula, $price_format);
# Parse the date
my $date = xl_decode_date_US(@$sale[3]);
$worksheet->write($row, 4, $date, $date_format);
$row++;
}
# Create a formula to sum the totals, like '=SUM(D2:D6)'
my $total = '=SUM(D2:'
. xl_rowcol_to_cell($row-1, 3)
. ")";
$worksheet->write($row, 3, $total, $total_format);
__DATA__
586 card,20,125.50,5/12/01
Flat Screen Monitor,1,1300.00,5/12/01
64 MB dimms,45,49.99,5/13/01
15 GB HD,12,300.00,5/13/01
Speakers (pair),5,15.50,5/14/01