レス書き込み
スレへ戻る
写
レス栞
レス消
プログラミングのお題スレ Part15
PC,スマホ,PHSは
ULA
べっかんこ
公式(スマホ)
公式(PC)
で書き込んでください。
名前
メール
引用切替:
レスアンカーのみ
>>493 > >>485 Perl5 (LWP::UserAgent、LWP::Protocol::https、XML::Simple のinstallしてあるPCで) > > # -*- coding: utf-8 -*- > use utf8; use Data::Dump 'dump'; use Data::Dumper; > binmode STDOUT, ':encoding(utf-8)'; > use feature say; > $pno = 13; # ex) 01:北海道, 13:東京, 20:長野, 47:沖縄 > $url = "https://www.drk7.jp/weather/xml/$pno.xml"; > require LWP::UserAgent; # with LWP::Protocol::https > $ua = LWP::UserAgent->new; > $ua->agent('Mozilla/5.0 (Windows NT 6.3; WOW64; Trident/7.0; Touch; rv:11.0) like Gecko'); > $xml = LWP::UserAgent->new->get($url)->content; > use XML::Simple; > my $xs = new XML::Simple; #(keyattr => ['area']); # (forcearray => ['info'], keyattr => ['pref']); > my $data = $xs->XMLin($xml); > say "$_: $data->{$_}" for qw{title link description pubDate author managingEditor}; > $pref = $data->{pref}; say "都道府県: $pref->{id}"; > %area = %{$pref->{area}}; > for $region (keys %area) { > $area = $area{$region}; > printf "地域: $region (緯度=%s, 経度=%s)\n", @{$area->{geo}}{qw{lat long}}; > for $info (@{$area->{info}}) { > say " $info->{date} 天気:$info->{weather} (画像 $info->{img})"; > $info->{$_} and say ' 'x9, $info->{$_} for qw{weather_detail wave}; > %temp = %{$info->{temperature}}; > say ' 'x6, " 気温[$temp{unit}]: ", join 'から', sort map{"$_->{content}°"} @{$temp{range}}; > %rfc = %{$info->{rainfallchance}}; > say ' 'x6, " 降水確率 : ", join ', ', map{"$_->{hour}時:$_->{content}$rfc{unit}"} @{$rfc{period}}; > } > }
ローカルルール
SETTING.TXT
他の携帯ブラウザのレス書き込みフォームはこちら。
書き込み設定
で書き込みサイトの設定ができます。
・
ULA
・
べっかんこ(身代わりの術)
・
べっかんこ(通常)
・
公式(スマホ)
・
公式(PC)[PC,スマホ,PHS可]
書き込み設定(板別)
で板別の名前とメールを設定できます。
メモ帳
(0/65535文字)
上
下
板
覧
索
設
栞
歴
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.017s