Help for this page

Select Code to Download

Select or download this

if ($nfound = select($rout = $rin, undef, undef, $time_left)) {
  for (1 .. $nfound) {
    $sock->recv($msg, $MAX_SIZE) or warn "Socket error!: $@\n";
    }

Select or download this

my $incoming = IO::Socket::INET->new( LocalPort => $MSGPORT,
                                      Proto     => 'udp',
...
        push @messages, [ $addr, $msg ];
        last if @messages > $MAX_INC_Q_SIZE;
    }