Dotaz: Jak najit socket server v lokalni siti

[Jiri Tomasek]

Ahoj. Mam v perlu vytvoreny kod, ktery vytvari socketovy server.

$server = IO::Socket::INET->new(
    Proto     => "tcp",
    PeerPort  => 9000,
    PeerAddr  => "192.168.0.1",
    Reuse     => 1
) or die "chyba serveru";

A potrebuji jinym skriptem z jineho pocitace v siti najit tento server (resp. najit servery). Tzn. nejaky skript, ktery prohleda sit LAN a vypise seznam socket serveru, ktere nasel.

Nevim jak na to, jen vim ze se to pouziva napr. v LAN hrach. Existuje treba nejaky modul?

Dekuji za reakce.

Odpovědi

[Josef Kufner]

Zkus rozeslat nejaky hezky broadcast paket.

[Michal Marek (twofish)]

Taky to můžeš udělat hrubou silou

nmap  -p 9000 -oG -  192.168.1.0/24

U větších rozsahů to trochu potrvá...

[David Jaša]

Když se tam přidá -T5, tak se to trochu zkrátí.