Server UDP in ascolto della trasmissione

Question

Dato che:
Il server è su Windows XP che esegue ActiveState Perl
Il server è collegato a una rete interna e una rete esterna
Un computer sulla rete interna trasmette in udp al 10.4.255.255 sulla porta 9722

Devo:
ascolta la trasmissione e passa i messaggi a una funzione

Questo è il codice che sto usando:

my $sock;

do {
  eval {
    $sock = IO::Socket::INET->new(LocalPort => 9722, Proto => 'udp')
            or die("Couldn't open the socket: $@");
    1;
  };
  warn($@) and sleep(5) if($@);
} while ($@);

for(my $i = 0;$i < 20;$i++) {
  my $string = 'a';
  $sock->recv($string,1024);
  print &parseInput($string);
}

nota che & amp; parseInput restituisce la stringa originale che è stata passata.

Il mio problema:
dopo aver chiamato $ sock- > recv (), $ stringa diventa vuota. Utilizzando un'altra applicazione posso vedere che senza dubbio ci sono informazioni trasmesse su 10.4.255.255, ma non riesco ad accedervi.
se possibile, vorrei rimanere usando IO :: Socket :: INET.

modifica: ho verificato il valore di ritorno di recv (..) e $ !. non vi è alcun valore restituito da recv (..) e $! = "Errore sconosciuto".

modifica 2: sto provando a usare Socket; ora e avere il seguente:

$proto = getprotobyname('udp');
socket(SOCKET, PF_INET, SOCK_DGRAM, $proto) or die "socket: $!";
setsockopt(SOCKET, SOL_SOCKET, SO_BROADCAST, 1) or die "sockopt: $!";
bind(SOCKET, sockaddr_in(9722, inet_aton('192.168.0.103'))) or die "bind: $!";
recv(SOCKET, $msg, 128, 0) or die "recv: $!";

Genera l'errore - recv: errore sconosciuto in ...

Answer 1

Credo di aver trovato il tuo problema principale.

Il destinatario deve collegarsi a qualsiasi interfaccia (INADDR_ANY) o all'indirizzo di trasmissione della rete (o tutte le reti o quella indirizzata).

Ecco un codice di esempio sia per il mittente che per il destinatario della trasmissione.

Quando si utilizza setsockopt, fai attenzione! Devi impacchettare l'ultimo argomento.

#!/usr/bin/perl -w
# broadcast sender script
use strict;
use diagnostics;
use Socket;

my $sock;
my $receiverPort = 9722;
my $senderPort = 9721;

socket($sock, PF_INET, SOCK_DGRAM, getprotobyname('udp'))   || die "socket: $!";
setsockopt($sock, SOL_SOCKET, SO_REUSEADDR, pack("l", 1))   || die "setsockopt: $!";
setsockopt($sock, SOL_SOCKET, SO_BROADCAST, pack("l", 1)) or die "sockopt: $!";
bind($sock, sockaddr_in($senderPort, inet_aton('192.168.2.103')))  || die "bind: $!";

while (1) {
    my $datastring = `date`;
    my $bytes = send($sock, $datastring, 0, 
                     sockaddr_in($receiverPort, inet_aton('192.168.2.255')));
    if (!defined($bytes)) { 
        print("$!\n"); 
    } else { 
        print("sent $bytes bytes\n"); 
    }
    sleep(2);
}

#!/usr/bin/perl -w
# broadcast receiver script
use strict;
use diagnostics;
use Socket;

my $sock;

socket($sock, PF_INET, SOCK_DGRAM, getprotobyname('udp'))   || die "socket: $!";
setsockopt($sock, SOL_SOCKET, SO_REUSEADDR, pack("l", 1))   || die "setsockopt: $!";
bind($sock, sockaddr_in(9722, inet_aton('192.168.2.255')))  || die "bind: $!"; 

# just loop forever listening for packets
while (1) {
    my $datastring = '';
    my $hispaddr = recv($sock, $datastring, 64, 0); # blocking recv
    if (!defined($hispaddr)) {
        print("recv failed: $!\n");
        next;
    }
    print "$datastring";
}

Answer 2

Controlla il valore di ritorno di $ sock- > recv e print " $! \ n " . Che tipo di messaggio di errore stampa quando $ string diventa vuoto? Potrebbe essere necessario eseguire $ sock- > connect (...) o $ sock- > bind (...) prima di chiamare $ sock- >. recv ()