? my ($company,$company_en,$update, $kyoukyuu_kw, $kyoukyuu_time,$maxpower_kw,$maxpower_time,$today_persent,$maxupdate,$results,$qrurl) = @_; List <?= $company_en ?> Power Usage
Update:
Max power supply: mi.kW ()
Forecasted max power: mi.kW ()
Forecasted max usage:%
Forecasted update:
? for my $i (0 .. $#$results) { my $r = $results->[$i]; ? }
DateTimeTodayYesterdayUsageDiff yesterday
{date} ?> {time} ?> ? if ($r->{today_power} ne 0) { {today_power} ?>mi.kW ? } else { none ? } ? if ($r->{yesterday_power} ne 0) { {yesterday_power} ?>mi.kW ? } else { none ? } ? if ($r->{persent} ne 0) { {persent} ?>% ? } ? if ($r->{today_power} ne 0) { {diff} ?>mi.kW ? }
[Return] [Update] ? if($company_en =~/TEPCO/) { {TEPCO's official power usage graph] ? } ? if ($qrurl) {
If you have mobile phone to transfer this result, use this barcode.

QRcode ? }