? my ($company,$company_en,$update, $kyoukyuu_kw, $kyoukyuu_time,$maxpower_kw,$maxpower_time,$today_persent,$maxupdate,$y,$m,$d,$t,$results,$dates) = @_; <?= $company ?>の<?= $y ?>年<?= $m ?>月<?= $d ?>日 <?= $t+0 ?>時~<?= $t+5 ?>時台の5分刻み電力使用状況
更新日時:
最大供給量:万kW ()
予想最大電力:万kW ()
最大使用率:
予想更新日時:
日付選択:
? if ($company eq '東京電力') { ? } ? for my $z (0 .. 23) { ? for my $i (0 .. 2) { my $r = $results->[$i * 24 + $z + $t * 12]; ? my $bgcolor; ? if ($r->{persent} >= 99) { ? $bgcolor="#f8696b"; ? } elsif($r->{persent} >= 97) { ? $bgcolor="#fa8370"; ? } elsif($r->{persent} >= 95) { ? $bgcolor="#fb9d75"; ? } elsif($r->{persent} >= 93) { ? $bgcolor="#fdb87b"; ? } elsif($r->{persent} >= 90) { ? $bgcolor="#fed280"; ? } elsif($r->{persent} >= 86) { ? $bgcolor="#ffeb84"; ? } elsif($r->{persent} >= 83) { ? $bgcolor="#dfe282"; ? } elsif($r->{persent} >= 80) { ? $bgcolor="#c0d980"; ? } elsif($r->{persent} >= 75) { ? $bgcolor="#a1d07e"; ? } elsif($r->{persent} >= 70) { ? $bgcolor="#82c77c"; ? } else { ? $bgcolor="#63be7b"; ? } ? } ? }
日付時間実績使用率 日付時間実績使用率 日付時間実績使用率
{date} ?> {time} ?> ? if ($r->{today_power} ne 0) { {today_power} ?>万kW ? } else { 未登録 ? } ? if ($r->{persent} ne 0) { {persent} ?>% ? }
[戻る] ? if ($company eq '東京電力') { [過去3年間の1時間おきのデータを見る] [東京電力のグラフへ] ? } else { [東北電力のグラフへ] ? }