? my ($company,$company_en,$update, $kyoukyuu_kw, $kyoukyuu_time,$maxpower_kw,$maxpower_time,$today_persent,$maxupdate,$results,$qrurl) = @_;
= $company_en ?> Power Usage
? if($company eq '中部電力') {
Cepco Power Usage Display Service is End at 30 Sep 17:00
? }
= $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 ?> |
(10 thousand kW)
? if ($company eq '東京電力' || $company eq '東北電力') {
Time | Today | Forecast | Usage | Yesterday | Diff |
? } else {
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} ?>
? } else {
---
? }
|
? if ($company eq '東京電力' || $company eq '東北電力') {
? if ($r->{forecast_power} ne 0) {
= $r->{forecast_power} ?>
? } else {
---
? }
|
? } else {
? if ($r->{yesterday_power} ne 0) {
= $r->{yesterday_power} ?>
? } else {
---
? }
|
? }
? if ($r->{persent}+0 ne 0) {
= $r->{persent} ?>%
? }
|
? if ($company eq '東京電力' || $company eq '東北電力') {
? if ($r->{yesterday_power}+0 ne 0) {
= $r->{yesterday_power} ?>
? } else {
---
? }
|
? }
? if ($r->{today_power} ne 0 && $r->{yesterday_power}+0 ne 0) {
= $r->{diff} ?>
? }
|
? }
[#.Return]
? if($company_en =~/TEPCO/) {
[Update]
? } elsif($company_en =~/KEPCO/) {
[Update]
? } elsif($company eq '東北電力') {
[Update]
? } else {
[Update]
? }