? my ($company,$company_en,$update, $kyoukyuu_kw, $kyoukyuu_time,$maxpower_kw,$maxpower_time,$today_persent,$maxupdate,$results,$qrurl,$flg,$mon,$day) = @_;

| ? if ($kyoukyuu_kw+0 ne 0) {
更新日時： |
最大供給量: | 万kW ()
予想最大電力: | 万kW ()
最大使用率: | ％
予想更新日時: |
? } else {
月日の供給実績です。
? } ? if ($company eq '東京電力' || $company eq '東北電力') {
日付選択: | 月 日
? }

? if ($company eq '東京電力' || $company eq '東北電力') { ? if($flg eq 1) {
日付 | 時間 | 当日実績 | 当日予測 | 使用率 | 前日実績 | その差 | 2011年実績 | 2010年実績 | 2009年実績 | 2008年実績
--- | --- | --- | --- | --- | --- | --- | --- | --- | --- | ---
? } 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"; ? }
? } {date} ?> | {time} ?> | ? if ($r->{today_power}+0 ne 0) { {today_power} ?>万kW ? } else { 未登録 ? } ? if (1) { | ? if ($r->{forecast_power}+0 ne 0) { {forecast_power} ?>万kW ? } else { 未登録 ? } ? } ? if (1) { ? } else { | ? if ($r->{yesterday_power}+0 ne 0) { {yesterday_power} ?>万kW ? } else { 未登録 ? } ? } | ? if ($r->{persent}+0 ne 0) { {persent} ?>％ ? } ? if (1) { | ? 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($company eq '中部電力') { | ? 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 (($company eq '東京電力' || $company eq '東北電力') && $flg eq 1) { | ? 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 '東京電力') { [最新に更新する] [過去４年分のデータも見る] [５分おきのデータを見る] [東京電力のグラフへ] ? } elsif ($company eq '関西電力') { [最新に更新する] [３分おきのデータを見る][関西電力のグラフへ] ? } elsif ($company eq '東北電力') { [最新に更新する] [過去３年分のデータも見る] [５分おきのデータを見る] [東北電力のグラフへ] ? } elsif ($company eq '九州電力') { [最新に更新する] [５分おきのデータを見る] [九州電力のグラフへ] ? } else { [５分おきのデータを見る] [最新に更新する] [中部電力のグラフへ] ? } ? if ($qrurl) {
この検索結果を携帯に転送するには、このQRコードを読み込んで下さい。
? }