Dotaz: Komunikace pomoci socketu v lokalni siti

[Jiri Tomasek]

Ahoj, chci vytvorit program (perl), ktery bude v lokalni siti komunikovat pomoci socketu. Na 1 pocitaci mam klienta (neposilam cele soubory, protoze zbytek funguje):

$sock = IO::Socket::INET->new(
    Proto    => "tcp",
    PeerAddr => "192.168.0.10",
    PeerPort => "9000"
) or die "chyba $!";
...

A na pocitaci 192.168.0.10 mam server:

$server = IO::Socket::INET->new(
    Proto     => "tcp",
    PeerPort => 9000,
    PeerAddr => "192.168.0.10",
    Listen    => 4,
    Reuse     => 1
) or die "chyba $!";
...

Uvedene soubory spolu nekomunikuji. Oba po spusteni nic neprovadeji, ani nezahlasi zadnou chybu.

Kdyz zamenim hodnotu v PeerAddr za localhost a programy jsou na stejnem pocitaci, vse funguje. Ja je ale potrebuji na ruznych pocitacich.

---

Jeste bych mel 1 dotaz, v jakem rozsahu je mozne pouzivat pro tento ucel porty?

Odpovědi

[azurIt]

mno kebyze to chces v pythone tak ti poradim ;) perl neviem.

inak porty mozes pouzit ake len chces, avsak aby to nemuselo mat rootovske prava, tak vacsie ako 1023

[petr_p]

Tak u toho serveru by to asi chtelo LocalPort a LocalAddr.

[Jiri Tomasek]

To mi bohuzel taky nefunguje, resp. tam nekde bude jeste dalsi chyba:(

Server na 192.168.0.10 ma nastaveno:

    LocalPort => 9000,
    LocalAddr => "192.168.0.10"

Klient ma nastaveno:

    PeerPort  => 9000,
    PeerAddr  => "192.168.0.10"

[zabza]

Ty sockety se nevytvoří (netstat), ten new() skončí nebo neskončí...? Co znamená, že nic neprovádějí? Nemáte někde mezi těmi počítači firewall?

[Jiri Tomasek]

Konecne jsem se k tomu dostal, bylo to firewallem! Dik za pomoc