UPnPデバイスが提供しているサービス一覧を取得（Net::UPnP::ControlPointを利用）

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->getfriendlyname();
  print "\n";

  foreach $serv (@servlist) {
    print "  ";
    print $serv->getservicetype();
    print "\n";
  }
}

exit;