? my ($company,$company_en,$update, $kyoukyuu_kw, $kyoukyuu_time,$maxpower_kw,$maxpower_time,$today_persent,$maxupdate,$results,$qrurl) = @_;
power usage.

Update: |
Max power supply: | mi.kW ()
Forecasted max power: | mi.kW ()
Forecasted max usage: | %
Forecasted update: |

(10 thousand kW)

? if ($company eq '東京電力' || $company eq '東北電力') {
Time | Today | Usage | Yesterday | Diff
--- | --- | --- | --- | ---
? } else {
Time | Today | Yesterday | Usage | Diff
? } ? for my $i (0 .. $#$results) { my $r = $results->[$i];
{time} ?> | ? if ($r->{today_power} ne 0) { {today_power} ?> ? } else { --- ? } ? if ($company eq '東京電力' || $company eq '東北電力') { ? } else { | ? if ($r->{yesterday_power} ne 0) { {yesterday_power} ?> ? } else { --- ? } ? } | ? if ($r->{persent}+0 ne 0) { {persent} ?>% ? } ? if ($company eq '東京電力' || $company eq '東北電力') { | ? if ($r->{yesterday_power}+0 ne 0) { {yesterday_power} ?> ? } else { --- ? } ? } | ? if ($r->{today_power} ne 0 && $r->{yesterday_power}+0 ne 0) { {diff} ?> ? }
? }

[#.Return] ? if($company_en =~/TEPCO/) { [Update] ? } elsif($company_en =~/KEPCO/) { [Update] ? } elsif($company eq '東北電力') { [Update] ? } else { [Update] ? }