root/misc/bonjourfind

Revision 1918 (checked in by miyagawa, 13 years ago)

add bonjourfind

  • Property svn:executable set to *
Line 
1 #!/usr/bin/perl
2 use strict;
3 use warnings;
4 use Net::Rendezvous;
5
6 my $proto = shift @ARGV || "Usage: bonjourfind protocol\n";
7 my $res = Net::Rendezvous->new($proto);
8 $res->discover;
9
10 for my $entry ($res->entries) {
11     printf "%s %s:%s\n", $entry->name, $entry->address, $entry->port;
12 }
Note: See TracBrowser for help on using the browser.