METAR Observations (KPSU ASOS)

#!/usr/bin/perl use CGI; $x=new CGI; print $x->header; $number = $x->param('number'); $file = '/home/syrett/public_html/kpsuobs.txt'; open(FILE,"$file")||die"Can't open $file file: $!\n"; @file = ; close FILE; # ABOVE PULLS NUMBER FROM text box if ($number eq ""){ $number = 12 } #FOLLOWING IS HTML TAGS #print "Content-type: text/html\n\n"; print ""; print ""; print "METAR Observations (KPSU ASOS)"; print ""; print ""; print "Return to the KPSU ASOS page"; print "

"; print "

"; print ""; print "

Most Current Observation Is On Top

";

#USES NUMBERS PULLED TO OUTPUT LINES OF TEXT
@last_lines = splice(@file,($#file-$number + 1),$number + 1);
#$,="
\n";
print reverse(@last_lines);
#print "

"; #REST OF HTML CODE print "

"; print "Return to the KPSU ASOS Page"; print "

"; print ""; print ""; print ""; exit;