tokuhirom@株主の日記 このページをアンテナに追加 RSSフィード

 | 

2005-11-16

天気知りたい その3 13:25 お天気知りたい その3 - tokuhirom@株主の日記 を含むブックマーク

use strict;
use warnings;
use LWP::UserAgent;

sub get_weather {
    my $url = shift || 'http://weather.goo.ne.jp/area/4410.rdf'; # default is Asia/Tokyo

    my $res = LWP::UserAgent->new->get($url);
    if ($res->is_success) {
        my $content = $res->content;
        $content =~ s/[\r\n]//g;
        $content =~ m{<item><title>
		

nipotannipotan2005/11/16 18:22なるほど。DumperColumn かぁ。ネーミングが (ry

 |