Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

(jcwren) RE: Oblivious?

by jcwren (Prior)
on Jun 21, 2000 at 17:04 UTC ( #19223=note: print w/replies, xml ) Need Help??

in reply to Oblivious?

I vote this ++ simply because it helps avoid leaving the keyboard to check for such things.

More XP if you can come up with scripts for tornadoes within 50 miles of my location, polar ice cap melting, impending meteor strikes, and hordes of locusts.


Replies are listed 'Best First'.
RE: RE: Oblivious?
by Odud (Pilgrim) on Jun 21, 2000 at 17:47 UTC
    Another good thing is get a weather report from your local airport (METAR format, there is a module on CPAN to help with the decoding), this can save a lot of wasted time looking out of the window etc.
      To that effect I submit the following:
      Requires: Geo::METAR
      #!/usr/bin/perl -w # Gets METAR information from my Favorite Airports and # displays temp and wind speed direction. use LWP::UserAgent; use Geo::METAR; use strict; my $ua = LWP::UserAgent->new; my $uri = ""; my $m = new Geo::METAR; #airport codes my %code = ( Renton => 'krnt', Ephrata => 'keph', Boeing_Field => 'kbfi', CourDAlene => 'kcoe', Sea_Tac => 'ksea', ); my (%site,$key,$value); while (($key,$value) = each %code) { $site{$value}=$key; } for (keys %code) { $uri .= $code{$_} . "%20"; } my $req = HTTP::Request->new('GET',$uri); my $res = $ua->request($req); if ($res->is_success) { my @content = split("\n",$res->content); if (@content) { for (@content) { if (/\d{6}Z/) { $m->metar($_); print <<"EOT"; Site: $site{lc($m->{SITE})} Time: $m->{TIME} Temp: $m->{F_TEMP} deg F. Wind: $m->{WIND_MPH} mph. Dir: $m->{WIND_DIR_ENG} EOT } } } } else { print "Error: " . $res->status_line . "\n"; }

      Update: Per Odud's excellent suggestion, I added error checking on the get. This meant usingLWP::UserAgent rather than LWP::Simple

        The only suggestion I would make is to improve the error handling around the get. I had occasional timeouts when I tried it that didn't get reported back. Geo::METAR has problems with some of the UK data, for example, visibility is reported as a four digit number in meters rather than statute miles. But nothing that a quick hack around the code can't fix.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://19223]
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others perusing the Monastery: (2)
As of 2023-12-01 03:00 GMT
Find Nodes?
    Voting Booth?

    No recent polls found