Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re: Measure temperature outside in Perl

by Anonymous Monk
on Feb 04, 2012 at 09:49 UTC ( #951785=note: print w/replies, xml ) Need Help??

in reply to Measure temperature outside in Perl

What room?

weather? Weather::Google? Yahoo::Weather? WWW::Wunderground::API?

#!/usr/bin/perl -- use strict; use warnings; use Path::Class; use DateTime; use LWP::Simple qw' $ua getstore '; our $here = file(__FILE__)->absolute->dir; chdir $here; $ua->show_progress(1); my $now = DateTime->now( qw[ time_zone local ] )->strftime('%F-%H-%M-% +S%z'); my $file = "$now-LA.rss"; my $url = ' +ml?units=english'; for(1..3){ getstore( $url, $file ); last if -e $file and -s _; } print "#~ $file "; use XML::XPath; use XML::XPath::XMLParser; my $xp = XML::XPath->new(filename => $file); print $xp->findvalue('//item[1]/title'); print " $1 " if $xp->findvalue('//item[1]/description') =~ /(Humidity[ +^\|]+)/; print "\n"; __END__ ** GET +nits=english ==> 500 Can't connect to (Bad h +ostname) (2s) ** GET +nits=english ==> 200 OK #~ 2012-02-04-01-53-41-0800-LA.rss Current Conditions : 61.5F, Clear + - 1:47 AM PST Feb. 4 Humidity: 27%

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://951785]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (6)
As of 2018-01-22 17:00 GMT
Find Nodes?
    Voting Booth?
    How did you see in the new year?

    Results (235 votes). Check out past polls.