#!/usr/bin/perl -w ####################################################################### # # A simple demo of some of the features of Spreadsheet::WriteExcel. # # This program is used to create the project screenshot for Freshmeat: # L # # reverse('©'), October 2001, John McNamara, jmcnamara@cpan.org # use strict; use Spreadsheet::WriteExcel; my $workbook = Spreadsheet::WriteExcel->new("demo.xls"); my $worksheet = $workbook->add_worksheet('Demo'); my $worksheet2 = $workbook->add_worksheet('Another sheet'); my $worksheet3 = $workbook->add_worksheet('And another'); my $bold = $workbook->add_format(bold => 1); ####################################################################### # # Write a general heading # $worksheet->set_column('A:A', 36, $bold); $worksheet->set_column('B:B', 20 ); $worksheet->set_row (0, 40 ); my $heading = $workbook->add_format( bold => 1, color => 'blue', size => 16, merge => 1, align => 'vcenter', ); my @headings = ('Features of Spreadsheet::WriteExcel', ''); $worksheet->write_row('A1', \@headings, $heading); ####################################################################### # # Some text examples # my $text_format = $workbook->add_format( bold => 1, italic => 1, color => 'red', size => 18, font =>'Lucida Calligraphy' ); # A phrase in Cyrillic my $unicode = pack "H*", "042d0442043e002004440440043004370430002004". "3d043000200440044304410441043a043e043c0021"; $worksheet->write('A2', "Text"); $worksheet->write('B2', "Hello Excel"); $worksheet->write('A3', "Formatted text"); $worksheet->write('B3', "Hello Excel", $text_format); $worksheet->write('A4', "Unicode text"); $worksheet->write_utf16be_string('B4', $unicode); ####################################################################### # # Some numeric examples # my $num1_format = $workbook->add_format(num_format => '$#,##0.00'); my $num2_format = $workbook->add_format(num_format => ' d mmmm yyy'); $worksheet->write('A5', "Numbers"); $worksheet->write('B5', 1234.56); $worksheet->write('A6', "Formatted numbers"); $worksheet->write('B6', 1234.56, $num1_format); $worksheet->write('A7', "Formatted numbers"); $worksheet->write('B7', 37257, $num2_format); ####################################################################### # # Formulae # $worksheet->set_selection('B8'); $worksheet->write('A8', 'Formulas and functions, "=SIN(PI()/4)"'); $worksheet->write('B8', '=SIN(PI()/4)'); ####################################################################### # # Hyperlinks # $worksheet->write('A9', "Hyperlinks"); $worksheet->write('B9', 'http://www.perl.com/' ); ####################################################################### # # Images # $worksheet->write('A10', "Images"); $worksheet->insert_image('B10', 'republic.png', 16, 8); ####################################################################### # # Misc # $worksheet->write('A18', "Page/printer setup"); $worksheet->write('A19', "Multiple worksheets"); __END__