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