Re^2: How Do I Do an IP Broadcast in Perl?

I changed the protocol to UDP in the broadcast program and it ran and didn't give me an error or anything. But then when I changed the protocol on the listener to UDP, it kept crashing. I removed the "Listen => 1" and it would run but do nothing.

Here's the code for the listener:

    use IO::Socket; 
    
    my $sock = new IO::Socket::INET (
        LocalHost => '172.16.7.101',
        LocalPort => '7070',
        Proto => 'udp',
#        Listen => 1,
        Reuse => 1, 8 );
    die "Could not create socket: $!\n" unless $sock;

    my $new_sock = $sock->accept();
    while(<$new_sock>) {
        print $_;
    }
    close($sock);
[download]

So I take it I need to change something to be able to listen on a UDP socket?

Comment on Re^2: How Do I Do an IP Broadcast in Perl? Download Code

Replies are listed 'Best First'.
Re^3: How Do I Do an IP Broadcast in Perl? by ikegami (Patriarch) on Sep 26, 2010 at 21:19 UTC
Sockets are bi-directional, so they can all listen for packets. "`Listen`" tells IO::Socket to listen for incoming connections. UDP is connection-less, so `Listen` is never used with UDP. You have a stray "8" in your argument list.	[reply] [d/l] [select]
Re^3: How Do I Do an IP Broadcast in Perl? by HalNineThousand (Beadle) on Sep 26, 2010 at 19:34 UTC
Okay, I did more searching and found examples that did not specify the local IP address for the socket using UDP. I removed "LocalHost => '172.16.7.101'" and now it's working fine. I've even tested it with several boxes listening and they all got the same message, so I know it's actually broadcasting. Thanks for the help!	[reply]