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


# Declare all variables
use strict;

# Define delimiter & line vars
my $del = ',';
my $nl = "\n";
my $line = '';

# Open the text file
open(OUT, 'c:\\temp\\presidents.csv');

# Header info - write out data
$line = '';
$line .= 'id' . $del;
$line .= 'first' . $del;
$line .= 'last' . $del;
$line .= 'address1' . $del;
$line .= 'address2' . $del;
$line .= 'city' . $del;
$line .= 'state' . $del;
$line .= 'zip' . $del;
$line .= 'term' . $nl;
print OUT $line;

# President #1 - write out data
$line = '';
$line .= '1' . $del;
$line .= 'George' . $del;
$line .= 'Washington' . $del;
$line .= '1600 Pennsylvania Avenue' . $del;
$line .= 'North West' . $del;
$line .= 'Washington' . $del;
$line .= 'DC' . $del;
$line .= '20500' . $del;
$line .= '1789-1797' . $nl;
print OUT $line;

# President #2 - write out data
$line = '';
$line .= '2' . $del;
$line .= 'John' . $del;
$line .= 'Adams' . $del;
$line .= '1600 Pennsylvania Avenue' . $del;
$line .= 'North West' . $del;
$line .= 'Washington' . $del;
$line .= 'DC' . $del;
$line .= '20500' . $del;
$line .= '1797-1801' . $nl;
print OUT $line;

# President #3 - write out data
$line = '';
$line .= '3' . $del;
$line .= 'Thomas' . $del;
$line .= 'Jefferson' . $del;
$line .= '1600 Pennsylvania Avenue' . $del;
$line .= 'North West' . $del;
$line .= 'Washington' . $del;
$line .= 'DC' . $del;
$line .= '20500' . $del;
$line .= '1801-1809' . $nl;
print OUT $line;

# President #4 - write out data
$line = '';
$line .= '4' . $del;
$line .= 'James' . $del;
$line .= 'Madison' . $del;
$line .= '1600 Pennsylvania Avenue' . $del;
$line .= 'North West' . $del;
$line .= 'Washington' . $del;
$line .= 'DC' . $del;
$line .= '20500' . $del;
$line .= '1809-1817' . $nl;
print OUT $line;

# President #5 - write out data
$line = '';
$line .= '5' . $del;
$line .= 'James' . $del;
$line .= 'Monroe' . $del;
$line .= '1600 Pennsylvania Avenue' . $del;
$line .= 'North West' . $del;
$line .= 'Washington' . $del;
$line .= 'DC' . $del;
$line .= '20500' . $del;
$line .= '1817-1825' . $nl;
print OUT $line;

# Close the text file
close(OUT);