? my ($title, $dates, $results, $error_message, $version_message, $rssurl, $qrurl, $converttime, $version) = @_;
= $title ?>の計画停電予定
= scalar @$results ?>件が見つかりました。同一地域で複数登録があるときは、場所によって予定時間が異なります。
1日2回の停電予定がある場合、後半の停電予定は状況に応じて実行となります。
このページをブックマークしておくと、次回からは地域名の入力が不要です。
東京電力、東北電力共にスケジュールされていませんが、万が一の天災や発電所の設備に故障に見られた場合、事前予告ありで計画停電が実際される可能性があります。
? if (@$version_message) {
? for my $v (@$version_message) {
= $v ?>
? }
? } else {
? if ($error_message) {
= $error_message ?>
? } else {
? my $c=0;
? for my $d(@$dates) {
【= $d ?>の予定】
? for my $i (0 .. $#$results) { my $r = $results->[$i];
= $r->{tdfk} ?> = $r->{shiku} ?> = $r->{machiaza} ?>
? my $h=$r->{hour_refs}[$c];
? my $hs=$h->{hours_str};
? my $rs=$h->{run_str};
[エリア:= $r->{grp} ?>]
= $hs ?>
? if($rs) {
(= $rs ?>)
? }
-----
? }
? $c++;
? }
? }
? }
[#.戻る]