? my ($company,$company_en,$update, $kyoukyuu_kw, $kyoukyuu_time,$maxpower_kw,$maxpower_time,$today_persent,$maxupdate,$results,$qrurl) = @_;
電力使用状況

更新日時： |
最大供給量: | 万kW ()
予想最大電力: | 万kW ()
最大使用率: | ％
予想更新日時: |

(単位:万kW)

? if ($company eq '東京電力' || $company eq '東北電力' || $company eq '関西電力') {
時間 | 当日 | ％ | 前日 | 差
--- | --- | --- | --- | ---
? } else {
時間 | 当日 | 前日 | ％ | 差
? } ? for my $i (0 .. $#$results) { my $r = $results->[$i];
{time} ?> | ? if ($r->{today_power} ne 0) { {today_power} ?> ? } else { --- ? } ? if ($company eq '東京電力' || $company eq '東北電力' || $company eq '関西電力') { ? } else { | ? if ($r->{yesterday_power} ne 0) { {yesterday_power} ?> ? } else { --- ? } ? } | ? if ($r->{persent}+0 ne 0) { {persent} ?>% ? } ? if ($company eq '東京電力' || $company eq '東北電力' || $company eq '関西電力') { | ? if ($r->{yesterday_power}+0 ne 0) { {yesterday_power} ?> ? } else { --- ? } ? } | ? if ($r->{today_power} ne 0 && $r->{yesterday_power}+0 ne 0) { {diff} ?> ? }
? }

[#.戻る] ? if ($company eq '東京電力') { [最新に更新] ? } elsif ($company eq '関西電力') { [最新に更新] ? } elsif ($company eq '東北電力') { [最新に更新] ? } else { [最新に更新] ? }