//gi;
# remove all \n's
$page =~ s/\n/ /g;
$page =~ s/\r//g;
$page =~ s/\s/ /g;
# remove all 's
$page =~ s/&[^;]+;/ /gi;
# remove all other html tags
$page =~ s/<[^>]+>/ /g;
# remove adjacent spaces
$page =~ s/ +/ /g;
#print $page if $name eq "Stevens";
print "| ";
my $done = 0;
if (defined $new{$name}) {
if ($page =~ /$new{$name}/i) {
my $x = $1;
$x *= 0.3937 if $name eq "Whistler";
printf "%3.1f\"\n", $x;
$done = 1;
}
}
print "No data" if (!$done);
print " | \n";
print "";
$done = 0;
if (defined $s24{$name}) {
if ($page =~ /$s24{$name}/i) {
my $y = $1;
$y *= 0.3937 if $name eq "Whistler";
printf "%3.1f\"\n", $y;
$done = 1;
}
}
print "No data" if (!$done);
print " | ";
print "";
if (defined $fcast{$name}) {
print "forecast\n";
}
print " |