Perl Cambridge (DTG rooftop http://www.cl.cam.ac.uk/research/dtg/weather/) weather data retreiver

camweather.pl

#!/usr/bin/perl

# Usage
#   camweather
#   camweather Wind speed    
#   ..etc.

use LWP::Simple;

# Get raw RSS and beautify
$rss = get("http://www.cl.cam.ac.uk/research/dtg/weather/rss.xml");
$rss =~ s/&lt;/</g;
$rss =~ s/&gt;/>/g;

# Parse data
%data = ();
while ($rss =~ m/<tr><td>([^<]+)<\/td><td>([^<]+)<\/td><\/tr>/g) {
  if ($#ARGV == -1) {
    print "$1 is $2\n";
  }
  $data{$1} = $2;
}

# Display individual data
if ($#ARGV + 1 > 0) {
  $output = $data{join(' ', @ARGV)};
  print "$output";
}