? my ($company,$company_en,$update, $kyoukyuu_kw, $kyoukyuu_time,$maxpower_kw,$maxpower_time,$today_persent,$maxupdate,$results,$qrurl) = @_;
= $company_en ?> Power Usage
= $company_en ?> power usage.
Update: | = $update ?> |
Max power supply: | = $kyoukyuu_kw ?> mi.kW (= $kyoukyuu_time ?>) |
Forecasted max power: | = $maxpower_kw ?> mi.kW (= $maxpower_time ?>) |
Forecasted max usage: | = $today_persent ?>% |
Forecasted update: | = $maxupdate ?> |
Time | Today | Yesterday | Usage | Diff |
? for my $i (0 .. $#$results) { my $r = $results->[$i];
= $r->{time} ?> |
? if ($r->{today_power} ne 0) {
= $r->{today_power} ?>mi.kW
? } else {
none
? }
|
? if ($r->{yesterday_power} ne 0) {
= $r->{yesterday_power} ?>mi.kW
? } else {
none
? }
|
? if ($r->{persent} ne 0) {
= $r->{persent} ?>%
? }
|
? if ($r->{today_power} ne 0) {
= $r->{diff} ?>mi.kW
? }
|
? }
[#.Return] [Update]