SOHOルータの状態を取得（Net::UPnP::ControlPointを利用）

IPアドレス取得サンプル

サンプルです。

#!/usr/bin/perl

use Net::UPnP::ControlPoint;

$upnp = Net::UPnP::ControlPoint->new();

# UPnP deviceを検索
@devs = $upnp->search(st => 'upnp:rootdevice', mx => 3);

$n = 0;
foreach $dev (@devs) {
  print $n;
  print "\n";
  $n++;

  $type = $dev->getdevicetype();
  if ($type ne 'urn:schemas-upnp-org:device:InternetGatewayDevice:1') {
    next;
  }

  $serv = $dev->getservicebyname(
             'urn:schemas-upnp-org:service:WANPPPConnection:1');
  unless ($serv) {
    next;
  }

  # デバイスの通名を表示
  print $dev->getfriendlyname();
  print "\n";

  # 状態取得サービスを指定
  $resp = $serv->postaction("GetStatusInfo");
  if ($resp->getstatuscode() != 200) {
    next;
  }

  # 結果の取得
  $args = $resp->getargumentlist();

  # 接続状態
  print "ConnectionStatus : ";
  print $args->{'NewConnectionStatus'};
  print "\n";

  # 最も最近発生したエラー
  print "LastConnectionError : ";
  print $args->{'NewLastConnectionError'};
  print "\n";

  # 起動継続時間(秒)
  print "Uptime : ";
  print $args->{'NewUptime'};
  print "\n";
}

exit;

ConnectionStatusは以下の値をとり得ます。 Optionalと書いてある状態は実装されていない可能性があります。