愛島発電所

QT SOLAR 愛島発電所

本日の発電量
292 kWh
現在の日射量
0 Wh/㎡
現在の外気温
8.5 ℃

(2025/04/30 20:40 更新)

下増田発電所

QT SOLAR 下増田発電所

本日の発電量
366 kWh
現在の日射量
0.5 Wh/㎡
現在の外気温
8.9 ℃

(2025/04/30 20:35 更新)

北原東発電所

QT SOLAR 北原東発電所

本日の発電量
423 kWh
現在の日射量
4 Wh/㎡
現在の外気温
9.9 ℃

(2025/04/30 20:24 更新)

長久良辺発電所

QT SOLAR 長久良辺発電所

本日の発電量
462 kWh
現在の日射量
6 Wh/㎡
現在の外気温
7.3 ℃

(2025/04/30 20:21 更新)

白坂発電所

QT SOLAR 白坂発電所

本日の発電量
423 kWh
現在の日射量
6 Wh/㎡
現在の外気温
10.0 ℃

(2025/04/30 20:08 更新)

清水沢発電所

QT SOLAR 清水沢発電所

本日の発電量
407 kWh
現在の日射量
0 Wh/㎡
現在の外気温
5.4 ℃

(2025/04/30 20:49 更新)

グローバルIPの取得［ルーター編］ | Perlで作るサーバーサービス

ルーター（Aterm MR03LN）からWAN IPを取得する方法の紹介です。

Aterm MR03LNのクイック設定Webを利用すると「トップページ ＞ 情報 ＞ 現在の状態」からWAN側のIP（グローバルIP）を知ることが出来ます。

「クイック設定Webを起動して確認」とあります。専用のAPIでもあればいいんですけどね。

クイック設定Webで使うBasic認証のIDとパスワードはfoo:barの部分を適宜変更して下さい。

wanip.pl

#!/usr/bin/perl
use Encode;
use HttpUtility;
sub operation
{
my $socket = HttpUtility->new();
my $url = 'http://foo:bar@aterm.me/index.cgi/info_main';
my $status = $socket->request($url);
my $body = $socket->get();
Encode::from_to( $body, 'eucjp', 'utf8' );
if( $body =~ /<h2>WAN側状態.+?<\/h2>.+?<td class='small_item_td2' colspan='2'>\s*(\d+.\d+.\d+.\d+)\/\d+<\/td>/s ){
print $1."\n";
}
}
&operation;
exit;

使い方。

$ perl wanip.pl

反応が少し遅いですが、ブラウザで試しても同じなのでそういうものなんでしょう。