? 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";
? }
= $r->{date} ?> |
= $r->{time} ?> |
? if ($r->{today_power} ne 0) {
= $r->{today_power} ?>mi.kW
? } else {
none
? }
|
? if($company_en =~/TEPCO/) {
? if ($r->{forecast_power} ne 0) {
= $r->{forecast_power} ?>mi.kW
? } else {
none
? }
|
? } else {
? if ($r->{yesterday_power} ne 0) {
= $r->{yesterday_power} ?>mi.kW
? } else {
none
? }
|
? }
? if ($r->{persent} ne 0) {
= $r->{persent} ?>%
? }
|
? if($company_en =~/TEPCO/) {
? if ($r->{yesterday_power}+0 ne 0) {
= $r->{yesterday_power} ?>万kW
? } else {
none
? }
|
? }
? if ($r->{today_power} ne 0 && $r->{yesterday_power}+0 ne 0) {
= $r->{diff} ?>mi.kW
? }
|
? if ($company_en=~/TEPCO/ && $flg eq 1) {
? if ($r->{power2010}+0 ne 0) {
= $r->{power2010} ?>mi.kW
? } else {
none
? }
|
? if ($r->{power2009}+0 ne 0) {
= $r->{power2009} ?>mi.kW
? } else {
none
? }
|
? if ($r->{power2008}+0 ne 0) {
= $r->{power2008} ?>mi.kW
? } else {
none
? }
|
? }
? }