# ******************************************************
# *
# * Name:         tst-write-xls-file.pl
# *
# * Design Phase:
# *     Author:   John Miner
# *     Date:     05/10/2012
# *     Purpose:  A test program to write xls files.
# *
# ******************************************************


# Declare all variables
use strict;

# Include defined module (CPAN)
use Spreadsheet::WriteExcel;    

# Path 2 output file
my $file = 'c:\\perl-depot\\xls\\presidents.xls';

# Create instance of module & open file
my $workbook  = Spreadsheet::WriteExcel->new($file);
 
# Create a new worksheet
my $worksheet = $workbook->add_worksheet('US Presidents');

# Create a solid fill format
my $format = $workbook->add_format();
$format->set_pattern();
$format->set_bg_color( 'silver' );
    
# Header info - write out data
$worksheet->write_string(0, 0, 'Rec No', $format);
$worksheet->write_string(0, 1, 'First Name', $format);
$worksheet->write_string(0, 2, 'Last Name', $format);
$worksheet->write_string(0, 3, 'Address 1', $format);
$worksheet->write_string(0, 4, 'Address 2', $format);
$worksheet->write_string(0, 5, 'City', $format);
$worksheet->write_string(0, 6, 'State', $format);
$worksheet->write_string(0, 7, 'Zip', $format);
$worksheet->write_string(0, 8, 'Term', $format);

# President #1 - write out data
$worksheet->write_number('A2', 1);
$worksheet->write_string('B2', 'George');
$worksheet->write_string('C2', 'Washington');
$worksheet->write_string('D2', '1600 Pennsylvania Avenue');
$worksheet->write_string('E2', 'North West');
$worksheet->write_string('F2', 'Washington');
$worksheet->write_string('G2', 'DC');
$worksheet->write_number('H2', 20500);
$worksheet->write_string('I2', '1789-1797');

# President #2 - write out data
$worksheet->write_number('A3', 2);
$worksheet->write_string('B3', 'John');
$worksheet->write_string('C3', 'Adams');
$worksheet->write_string('D3', '1600 Pennsylvania Avenue');
$worksheet->write_string('E3', 'North West');
$worksheet->write_string('F3', 'Washington');
$worksheet->write_string('G3', 'DC');
$worksheet->write_number('H3', 20500);
$worksheet->write_string('I3', '1797-1801');

# President #3 - write out data
$worksheet->write_number('A4', 3);
$worksheet->write_string('B4', 'Thomas');
$worksheet->write_string('C4', 'Jefferson');
$worksheet->write_string('D4', '1600 Pennsylvania Avenue');
$worksheet->write_string('E4', 'North West');
$worksheet->write_string('F4', 'Washington');
$worksheet->write_string('G4', 'DC');
$worksheet->write_number('H4', 20500);
$worksheet->write_string('I4', '1801-1809');
    
# President #4 - write out data
$worksheet->write_number('A5', 4);
$worksheet->write_string('B5', 'James');
$worksheet->write_string('C5', 'Madison');
$worksheet->write_string('D5', '1600 Pennsylvania Avenue');
$worksheet->write_string('E5', 'North West');
$worksheet->write_string('F5', 'Washington');
$worksheet->write_string('G5', 'DC');
$worksheet->write_number('H5', 20500);
$worksheet->write_string('I5', '1809-1817');
   
# President #5 - write out data
$worksheet->write_number('A6', 5);
$worksheet->write_string('B6', 'James');
$worksheet->write_string('C6', 'Monroe');
$worksheet->write_string('D6', '1600 Pennsylvania Avenue');
$worksheet->write_string('E6', 'North West');
$worksheet->write_string('F6', 'Washington');
$worksheet->write_string('G6', 'DC');
$worksheet->write_number('H6', 20500);
$worksheet->write_string('I6', '1817-1825');

# Close the excel file
$workbook->close();