Re: HTML::Parser walkthrough?

[Ben Ostrowsky]

Thanks to everyone who helped me!  Here's how I finally did it:

#!/usr/bin/perl -w
use strict;
use LWP::Simple;
my $html = get("http://weather.noaa.gov/weather/current/KVDF.html";)
  or die"0\n0\n";
$html =~ m/Temperature.* (.*) F \((.*) C\).* Dew Point/s or die "0\n0\n";
# yeah, it's a bit of a kludgey regex, but it works...
my $temp = $1;
$html =~ m/Relative Humidity.* (.*)%\n/s or die "0\n0\n";
my $humidity = $1;
print "$temp\n$humidity\n";