UPnPデバイスが提供しているサービス一覧を取得（Net::UPnP::ControlPointを利用）:GeekなぺーじUPnPデバイスが提供しているサービスの一覧を取得するスクリプトを書いてみました。 サンプルコード #!/usr/bin/perl use Net::UPnP::ControlPoint; $upnp = Net::UPnP::ControlPoint->new(); @devs = $upnp->search(st => 'upnp:rootdevice', mx => 3); foreach $dev (@devs) { $type = $dev->getdevicetype(); print "====\n"; print "type : " . $type . "\n"; @servlist = $dev->getservicelist(); unless (@servlist) { next; } print "friendlyname : "; print $dev->getf
