? my ($company,$company_en,$update, $kyoukyuu_kw, $kyoukyuu_time,$maxpower_kw,$maxpower_time,$today_persent,$maxupdate,$results,$qrurl) = @_; <?= $company ?>電力使用状況 ? if($company eq '中部電力') {
中部電力の電力使用率表示は9月30日17時をもって終了します。
? }
電力使用状況
更新日時:
最大供給量:万kW ()
予想最大電力:万kW ()
最大使用率:
予想更新日時:
(単位:万kW) ? if ($company eq '東京電力' || $company eq '東北電力' || $company eq '関西電力') { ? } else { ? } ? for my $i (0 .. $#$results) { my $r = $results->[$i]; ? if ($company eq '東京電力' || $company eq '東北電力' || $company eq '関西電力') { ? } else { ? } ? if ($company eq '東京電力' || $company eq '東北電力' || $company eq '関西電力') { ? } ? }
時間当日前日
時間当日前日
{time} ?> ? if ($r->{today_power} ne 0) { {today_power} ?> ? } else { --- ? } ? if ($r->{yesterday_power} ne 0) { {yesterday_power} ?> ? } else { --- ? } ? if ($r->{persent}+0 ne 0) { {persent} ?>% ? } ? 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 { [最新に更新] ? }