// Fetch average temperature data for a given weather station.
urlbase = "http://www.weather.com/weather/wxclimatology/daily/USMA0066?climoMonth="
println["mean = new dict"]
for month = 1 to 12
{
infile = read["$urlbase$month"]
for [line] = infile =~ %r/
]*\s*CLASS="lapAvgDataRow"[^>]*>(.*?)<\/TR>/gs
{
line =~ %s/<\/?TD[^>]*>//gs
line =~ %s/\n\s*/\t/gs
[day,sunrise,sunset,high,low,mean] = split["\t", line]
if [t] = mean =~ %r/([\-]?\d+)/
println["mean@\"$month-$day\" = F[$t]"]
}
}
println["mean@\"2-29\" = mean@\"2-28\""]
println["\"Ok\""]
|