Exemple d'utilisation

L'exemple suivant recherche les machines fournissant le service afpovertcp, AppleTalk Filing Protocol over TCP, le partage de fichiers sous Mac OS X. 


#!/usr/bin/perl
use strict;
use Net::Rendezvous;

my $ressource = new Net::Rendezvous 'afpovertcp';
$ressource->discover;

for my $entry ($ressource->entries) {
    printf "%s (%s:%s) %s %s\n", $entry->name, $entry->address,
        $entry->port, $entry->fqdn
}

Exécuté, il produit la sortie suivante : 


Jupiter (192.168.1.2:548) Jupiter._afpovertcp._tcp.local
Luke (192.168.1.11:548) Luke._afpovertcp._tcp.local
Eole (192.168.1.16:548) Eole._afpovertcp._tcp.local


Journées Perl 2004 25 / 32
Copyright © Sébastien Aperghis-Tramoni <sebastien@aperghis.net>