#!/var/local/couch/bin/perl &header; @book= ({author=>"Musciano", title=>"HTML & XHTML: Definitive Guide", publisher=>"OReilly", year=>"2002",}, {author=>"Robbins", title=>"Unix in a Nutshell", publisher=>"OReilly", year=>"1999",}, {author=>"Anderson-Freed", title=>"Weaving a Website", publisher=>"Prentice Hall", year=>"2001",}, {author=>"Gosselin", title=>"Javascript", publisher=>"Thomas Learning", year=>"2000",},); print "\n"; for ($i=0; $i<4; $i++){ $authors = $book[$i]{author}; $titles = $book[$i]{title}; $publishers = $book[$i]{publisher}; $years = $book[$i]{year}; print "\n"; print "\n"; print "\n"; print "\n";} %student = ( 'Lisa' => { year=>"Soph", dorm=>"Kerry", IDs=>"1, 2, 3, 4",}, 'Alan' => {year=>"Frosh", dorm=>"McCain", IDs=>"1, 2",}, 'Thuy' => {year=>"Junior", dorm=>"Bush", IDs=>"2, 3, 4",}, 'Kim' => {year=>"Junior", dorm=>"Kerry", IDs=>"3, 4",}, 'Brad' => {year=>"Frosh", dorm=>"McCain", IDs=>"4, 1, 3",},); $LisaY= $student{'Lisa'}{year}; $LisaD= $student{'Lisa'}{dorm}; $LisaI= $student{'Lisa'}{IDs}; $AlanY= $student{'Alan'}{year}; $AlanD= $student{'Alan'}{dorm}; $AlanI= $student{'Alan'}{IDs}; $ThuyY= $student{'Thuy'}{year}; $ThuyD= $student{'Thuy'}{dorm}; $ThuyI= $student{'Thuy'}{IDs}; $KimY= $student{'Kim'}{year}; $KimD= $student{'Kim'}{dorm}; $KimI= $student{'Kim'}{IDs}; $BradY= $student{'Brad'}{year}; $BradD= $student{'Brad'}{dorm}; $BradI= $student{'Brad'}{IDs}; print "

$authors

$titles

$publishers

$years

\n"; print "\n"; print "\n"; print "\n"; print "

Lisa	$LisaY	$LisaD	$LisaI
Alan	$AlanY	$AlanD	$AlanI
Thuy	$ThuyY	$ThuyD	$ThuyI
Kim	$KimY	$KimD	$KimI
Brad	$BradY	$BradD	$BradI

\n"; &footer; exit(0); sub header {# print the header for the HTML page print "Content-type: text/html", "\n\n"; print "\n"; print "\n"; } sub footer {# print the footer for the html page print ""; }