#!/usr/bin/perl use strict; use warnings; use LWP::Simple; use Data::Dumper; my $code="KSPI"; my $zip="62629"; print "Content-type: text/html\n\n"; my $xml=get("http://weather.gov/data/current_obs/$code.xml") #my $xml=`cat ~/dev/$code.xml` or die "failed to get XML from weather.gov\n"; my $fcast=get("http://www.weather.com/weather/print/$zip") or die "failed to get forecast from weather.com"; sub xml_content { my($tag)=@_; $xml =~ /<$tag>(.*?)<\/$tag>/; return $1; } sub fcast_content { $fcast =~ /(.+?<\/TABLE>)/ms or die "failed to match in weather.com html"; return $1; } my($temp,$cond,$hum,$wind,$pressure)=( xml_content("temperature_string"), xml_content("weather"), xml_content("relative_humidity"), xml_content("wind_string"), xml_content("pressure_string") ); print "weather

Temp: $temp
Cond: $cond
Humidity: $hum
Wind: $wind
Pressure: $pressure
".fcast_content."

\"map\"
\"map\"

";