Gecko [ fernandoquevedodop.com ]

Name	Size	Permission	Action
fetch_temp.pl	1.75 KB	-rw-r--r--
simple_dump.pl	238 B	-rw-r--r--

Code Editor : fetch_temp.pl

#!/usr/bin/perl -w

# $Id: fetch_temp.pl,v 1.1 2007/11/13 21:19:27 koos Exp $

# Brief Description
# =================
#
# fetch_temp.pl is a program that demonstrates how to get the current
# temperature from a nearby (or not) airport using Geo::METAR and the
# LWP modules.
#
# Given an airport site code on the command line, fetch_temp.pl
# fetches the current temperature and displays it on the
# command-line. For fun, here are some example airports:
#
# LA     : KLAX
# Dallas : KDFW
# Detroit: KDTW
# Chicago: KMDW

# Get the site code.

my $site_code = shift @ARGV;

die "Usage: $0 <site_code>\n" unless $site_code;

# Get the modules we need.

use Geo::METAR;
use LWP::UserAgent;
use strict;

my $ua = new LWP::UserAgent;

my $req = new HTTP::Request GET =>
  "http://weather.noaa.gov/cgi-bin/mgetmetar.pl?cccc=$site_code";

my $response = $ua->request($req);

if (!$response->is_success) {

print $response->error_as_HTML;
    my $err_msg = $response->error_as_HTML;
    warn "$err_msg\n\n";
    die "$!";

} else {

# Yep, get the data and find the METAR.

my $m = new Geo::METAR;
    my $data;
    $data = $response->as_string;               # grap response
    $data =~ s/\n//go;                          # remove newlines
    $data =~ m/($site_code\s\d+Z.*?)</go;       # find the METAR string
    my $metar = $1;                             # keep it

# Sanity check

if (length($metar)<10) {
        die "METAR is too short! Something went wrong.";
    }

# pass the data to the METAR module.
    $m->metar($metar);

# ask for the temperature(s)
    my $f_temp = $m->TEMP_F;
    my $c_temp = $m->TEMP_C;

my $time = localtime(time);
    print "The temperature at $site_code is $f_temp F ($c_temp C) as of $time.\n";

} # end else

exit;

__END__

${this.title}

Code Editor : fetch_temp.pl