? }
= $r->{date} ?> |
= $r->{time} ?> |
? if ($r->{today_power}+0 ne 0) {
= $r->{today_power} ?>mi.kW
? } else {
none
? }
|
? if($company_en =~/TEPCO/) {
? if ($r->{forecast_power}+0 ne 0) {
= $r->{forecast_power} ?>mi.kW
? } else {
none
? }
|
? } else {
? if ($r->{yesterday_power}+0 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
? }
|
? }
? }