conelec2.pl

小小程序....请大家慢慢看拉...就是一些关于你学习它的一些练习

sub make_rows {
    my $index = $_[0];

# Split the input lines for females into age arrays

    @age1 = split(/ /, $vote_data[$index]);
    @age2 = split(/ /, $vote_data[$index + 1]);
    @age3 = split(/ /, $vote_data[$index + 2]);
    @age4 = split(/ /, $vote_data[$index + 3]);

# Add the row titles to the age arrays

    unshift(@age1, "10-25");
    unshift(@age2, "26-40");
    unshift(@age3, "41-60");
    unshift(@age4, "Over 60");

# Create the column titles in HTML by giving their address to the th
# function and storing the return value in the @rows array

    @rows = th(\@col_titles);

# Now create the data rows with the td function
#  and add them to the row addresses array

   push(@rows, td(\@age1), td(\@age2), td(\@age3), td(\@age4));
}  ##** end of the make_rows subprogram

# error - a function to produce an error message for the client
#         and exit in case of open errors

sub error {
    print start_html;
    print "Error - input/output error in conelec2.pl <br/>";
    print end_html;
exit(1);
}  ##** end of the error subprogram

use CGI qw(:standard);

# Make the column titles array

@col_titles = ("Age Group", "Conventional TV", "HDTV", "VCR",
              "CD player", "MiniCD player/recorder", "DIVD player",
              "Other");
print header;

# Open and read the survey data file

open(SURVDAT, "<survdat.dat") or error();
@vote_data = <SURVDAT>;

# Create the beginning of the result Web page

print start_html("Survey Results");
print h2("Results of the Consumer Electronics Purchasing Survey");
print "<br />";
        
# Create the rows of the female survey results table

make_rows(0);

# Create the table for the female survey results
#  The address of the array of row addresses is passed to Tr

print table({-border => "border"},
            caption(h3("Survey Data for Females")),
            Tr(\@rows)
           );

# Create the rows for the male results table

make_rows(4);

# Create the table for the male survey results
#  The address of the array of row addresses is passed to Tr

print "<br /><br />";
print table({-border => "border"},
	            caption(h3("Survey Data for Males")),
	            Tr(\@rows)
	           );
	
	print end_html;