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
{{#tags}}- {{label}}
{{/tags}}