? my ($company,$company_en,$update, $kyoukyuu_kw, $kyoukyuu_time,$maxpower_kw,$maxpower_time,$today_persent,$maxupdate,$results,$qrurl) = @_;
= $company ?>電力使用状況
= $company ?>電力使用状況
更新日時: | = $update ?> |
最大供給量: | = $kyoukyuu_kw ?>万kW (= $kyoukyuu_time ?>) |
予想最大電力: | = $maxpower_kw ?>万kW (= $maxpower_time ?>) |
最大使用率: | = $today_persent ?>% |
予想更新日時: | = $maxupdate ?> |
(単位:万kW)
? if ($company eq '東京電力') {
時間 | 当日 | 予測 | % | 前日 | 差 |
? } else {
時間 | 当日 | 前日 | % | 差 |
? }
? for my $i (0 .. $#$results) { my $r = $results->[$i];
= $r->{time} ?> |
? if ($r->{today_power} ne 0) {
= $r->{today_power} ?>
? } else {
---
? }
|
? if ($company eq '東京電力') {
? if ($r->{forecast_power} ne 0) {
= $r->{forecast_power} ?>
? } else {
---
? }
|
? } else {
? if ($r->{yesterday_power} ne 0) {
= $r->{yesterday_power} ?>
? } else {
---
? }
|
? }
? if ($r->{persent} ne 0) {
= $r->{persent} ?>%
? }
|
? if ($company eq '東京電力') {
? if ($r->{yesterday_power}+0 ne 0) {
= $r->{yesterday_power} ?>
? } else {
---
? }
|
? }
? if ($r->{today_power} ne 0 && $r->{yesterday_power}+0 ne 0) {
= $r->{diff} ?>
? }
|
? }
[#.戻る] [最新に更新する]