Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl
use Net::UPnP::ControlPoint;
...
my @dev_list = $obj->search();
my $nodevs = @dev_list;
print "Found $nodevs\n";
  2. or download this
    package Net::UPnP::ControlPoint;

...
    return $ref->[ $index ];
}
1;
  3. or download this
    while ( $sel->can_read( $args{mx} ) ) {
        recv ($sock, $ssdp_res_msg, 4096, 0);
        print "$ssdp_res_msg";
                ...
}