? my ($update, $kyoukyuu_kw, $kyoukyuu_time,$maxpower_kw,$maxpower_time,$results,$qrurl) = @_; 東京電力電力使用状況
更新日時:
最大供給量:万kW ()
予想最大電力:万kW ()
? for my $i (0 .. $#$results) { my $r = $results->[$i]; ? }
日付時間当日実績前日実績使用率前日との差
{date} ?> {time} ?> ? if ($r->{today_power} ne 0) { {today_power} ?>万kW ? } else { 未登録 ? } ? if ($r->{yesterday_power} ne 0) { {yesterday_power} ?>万kW ? } else { 未登録 ? } ? if ($r->{persent} ne 0) { {persent} ?>% ? } ? if ($r->{diff} ne 0) { {diff} ?>万kW ? }
[戻る] [最新に更新する] ? if ($qrurl) {
この検索結果を携帯に転送するには、このQRコードを読み込んで下さい。
QRcode ? }