Dotaz: Perl a Socket

[Fibi86]

Ahoj přátelé drobného hazardu Řeším teď takový problémek se skriptem, který načítá příchozí data na TCP port. Pokud skript nastavím na naslouchání UDP portu, tak mi nefunguje. Nevyhodí žádnou chybu, ale ukončí se a zbytek skriptu neprovede to, co by měl. Díky za radu
use threads;
use IO::Socket;
use DBI;


$SIG{CHLD} = 'IGNORE';
$| = 1;

my $server = new IO::Socket::INET (PF_INET, SOCK_DGRAM, getprotobyname("udp")); bind(UDP, sockaddr_in(8000, INADDR_ANY));(UDP);
#my $server = new IO::Socket::INET ( LocalAddr => 'GBOT', LocalPort => 8000, Proto => 'tcp', Listen => 5, ReuseAddr => 1 );

Odpovědi

[novy rok]

pokud skript nastavím na naslouchání UDP portu, tak mi nefunguje.

To je naprosto v pořádku.

[Fibi86]

Je naprosto v pořádku že nefunguje, nebo že je napsaný v pořádku?

[petr_p]

To první. Na UDP socketu se žádný listen() nedělá, protože to není proudový protokol, který by dělal spojení.

Každopádně ten kód máš dost zmatený. Třeba kde se vzalo UDP a co pak děláš se $server? Taky doporučuji hlídat návratové hodnoty jednotlivých volání. Podívej se do manuálu perlipc na slovo SOCK_DGRAM, abys načerpal inspiraci.

[pavlix]

Skoro si říkám, jestli není škoda, že neumíme UDP listen tak jako umíme UDP connect :).

[Roman DAVID]

Nevím, co má být výsledkem Vašeho kódu.

Příjem po UDP řeším následovně (opsáno z dokumentace, nebo nějakého howto):

use IO::Socket::INET;

$server = new IO::Socket::INET (
   LocalPort => '8000',
   Proto => 'udp',
) or die "ERROR in Socket Creation : $!\n";

[kolda]

+ 1