#!/usr/bin/perl -Tw ##################################### # Script by Joseph W. Guillaume # # Last updated June 2, 2005 # ##################################### use strict; use CGI qw(:standard); print "Content-Type: text/html\n\n"; print ''; ##################################### my $employee=param('employee_name'); my $certification=param('certification'); my $month=param('month'); my @month=""; my $day=param('day'); my $year=param('year'); my $mo_yr=param('mo_yr'); my @data; my @data_names; my $data_names; my $data; my $lines; my $lines1; my $number; my $i; my @mon = qw (January Feburary March April May June July August September October November December); ##################################### # Read Names.txt file # ##################################### open(JOE, "; #foreach (@data_names) { #close (JOE); #} print "Names are @data_names"; $lines1 =scalar@data_names; print "Number of records in Database is $lines1

"; ##################################### # Read File # ##################################### #print "Employee $employee "; for ($i=0; $i < $lines1; $i++) { print "Name $i is $data_names[$i]"; open(FH, ""; @data = ; print "Data for $data_names[$i] is $data[$i]"; close (FH); } ##################################### # Checking File # ##################################### exit;