? my ($company,$company_en,$update, $kyoukyuu_kw, $kyoukyuu_time,$maxpower_kw,$maxpower_time,$today_persent,$maxupdate,$results,$qrurl,$flg,$mon,$day) = @_; <?= $company ?>電力使用状況
? if ($kyoukyuu_kw+0 ne 0) { ? } else { ? } ? if ($company eq '東京電力' || $company eq '東北電力') { ? }
更新日時:
最大供給量:万kW ()
予想最大電力:万kW ()
最大使用率:
予想更新日時:
日の供給実績です。
日付選択:
? if ($company eq '東京電力' || $company eq '東北電力') { ? if($flg eq 1) { ? } else { ? } ? } elsif ($company eq '関西電力') { ? } elsif ($company eq '中部電力') { ? } else { ? } ? my $cflg=0; ? for my $i (0 .. $#$results) { my $r = $results->[$i]; ? if ($r->{persent}+0 eq 0 && $cflg eq 0) { ? } else { ? $cflg = 1; ? 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"; ? } ? } ? if (1) { ? } ? if (1) { ? } else { ? } ? if (1) { ? } ? if($company eq '中部電力') { ? } ? if (($company eq '東京電力' || $company eq '東北電力') && $flg eq 1) { ? } ? }
日付時間当日実績当日予測使用率前日実績その差2011年実績2010年実績2009年実績2008年実績
日付時間当日実績当日予測使用率前日実績その差
日付時間当日実績当日予測使用率前日実績その差
日付時間当日実績当日予測使用率前日実績その差前週実績その差
日付時間当日実績前日実績使用率その差
{date} ?> {time} ?> ? if ($r->{today_power}+0 ne 0) { {today_power} ?>万kW ? } else { 未登録 ? } ? if ($r->{forecast_power}+0 ne 0) { {forecast_power} ?>万kW ? } else { 未登録 ? } ? if ($r->{yesterday_power}+0 ne 0) { {yesterday_power} ?>万kW ? } else { 未登録 ? } ? if ($r->{persent}+0 ne 0) { {persent} ?>% ? } ? if ($r->{yesterday_power}+0 ne 0) { {yesterday_power} ?>万kW ? } else { 未登録 ? } ? if ($r->{today_power}+0 ne 0 && $r->{yesterday_power}+0 ne 0) { {diff} ?>万kW ? } ? if($r->{lastweek_power}+0 ne 0) { {lastweek_power} ?>万kW ? } else { 未登録 ? } ? if($r->{today_power}+0 ne 0 && $r->{lastweek_power}+0 ne 0) { {diffweek} ?>万kW ? } ? if ($r->{power2011}+0 ne 0) { {power2011} ?>万kW ? } else { 未登録 ? } ? if ($r->{power2010}+0 ne 0) { {power2010} ?>万kW ? } else { 未登録 ? } ? if ($r->{power2009}+0 ne 0) { {power2009} ?>万kW ? } else { 未登録 ? } ? if ($r->{power2008}+0 ne 0) { {power2008} ?>万kW ? } else { 未登録 ? }
[戻る] ? if ($company eq '東京電力') { [最新に更新する] [過去4年分のデータも見る] [5分おきのデータを見る] [東京電力のグラフへ] ? } elsif ($company eq '関西電力') { [最新に更新する] [3分おきのデータを見る][関西電力のグラフへ] ? } elsif ($company eq '東北電力') { [最新に更新する] [過去3年分のデータも見る] [5分おきのデータを見る] [東北電力のグラフへ] ? } elsif ($company eq '九州電力') { [最新に更新する] [5分おきのデータを見る] [九州電力のグラフへ] ? } else { [5分おきのデータを見る] [最新に更新する] [中部電力のグラフへ] ? } ? if ($qrurl) {
この検索結果を携帯に転送するには、このQRコードを読み込んで下さい。
QRcode ? }