UPnPデバイス一覧を取得（Net::UPnP::ControlPointを利用）:GeekなぺーじUPnP機器検索サンプル 発見したUPnP対応機器のFriendlyNameを表示するプログラムです。 #!/usr/bin/perl use Net::UPnP::ControlPoint; $upnp = Net::UPnP::ControlPoint->new(); # UPnPデバイスを検索 @devs = $upnp->search(st => 'upnp:rootdevice', mx => 3); $n = 0; foreach $dev (@devs) { print $n; print "\n"; # UPnPデバイスの種類を表示 print $dev->getdevicetype(); print "\n"; # UPnPデバイスのFriendlyNameを表示 print $dev->getfriendlyname(); print "\n"; $n++; } exi
