/g; print "
$heading
"; } } print <
##
#template1.tmpl
Test Template
My Home Directory is
My Path is set to
##
##
#!/bin/perl.exe -w
use lib '/site/lib';
use HTML::Template;
# open the html template
my $template = HTML::Template->new(filename => 'template1.tmpl');
# fill in some parameters
$template->param(HOME => $ENV{HOME});
$template->param(PATH => $ENV{PATH});
# send the obligatory Content-Type and print the template output
print "Content-Type: text/html\n\n", $template->output;
####
#!bin/perl.exe -w
#This CGI script extracts weather information from the Australian Bureau of
#retrieve url, and split into segments on double new-lines, which seems to be the divider
#between each Station section
use warnings;
#use strict;
use LWP::Simple;
$file = get "http://www.bom.gov.au/cgi-bin/wrap_fwo.pl?IDN10177.txt";
@segments = split(/\n{2}/, $file);
#Html file necessities
print "Content-type: text/html\n\n";
print <
Weather to the minute!
SLP802
EOM
foreach (@segments) {
if ($_ =~ /IDN\w/) {
$heading = "$&$'";
$heading =~ s/(\n)/
/g;
print "$heading
";
}
}
print <
Region Name Av Min Temp(°C) Av Max Temp(°C) Av Rainfall(mm)
EOM
foreach $segments(@segments) {
if ($segments =~ /Station/) {
$region = ®ionname($segments);
$min = &mintemp($segments);
$max = &maxtemp($segments);
$rain = &rainfall($segments);
print "$region $min $max $rain
EOM