phio has asked for the wisdom of the Perl Monks concerning the following question:
#!/usr/bin/perl # Simple DHCP client - sending a broadcasted DHCP Discover request use IO::Socket::INET; use Net::DHCP::Packet; use Net::DHCP::Constants; # creat DHCP Packet $discover = Net::DHCP::Packet->new( xid => int(rand(0xFFFFFFFF)), # random xid Flags => 0x8000, # ask for broadcast answer DHO_DHCP_MESSAGE_TYPE() => DHCPDISCOVER() ); # send packet $handle = IO::Socket::INET->new(Proto => 'udp', Broadcast => 1, PeerPort => '67', LocalPort => '68', LocalAddr => '0.0.0.0', # I added this line PeerAddr => '255.255.255.255') or die "socket: $@"; # yes, it uses $@ here $handle->send($discover->serialize()) or die "Error sending broadcast inform:$!\n";
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: how can I set LocalAddr to INADDR_ANY in IO::Socket::INET
by ikegami (Patriarch) on Mar 19, 2008 at 07:32 UTC | |
|
Re: how can I set LocalAddr to INADDR_ANY in IO::Socket::INET
by Corion (Patriarch) on Mar 19, 2008 at 07:45 UTC | |
|
Re: how can I set LocalAddr to INADDR_ANY in IO::Socket::INET
by ikegami (Patriarch) on Mar 19, 2008 at 07:51 UTC | |
by phio (Acolyte) on Mar 19, 2008 at 12:46 UTC | |
by Anonymous Monk on Mar 20, 2008 at 08:55 UTC | |
by phio (Acolyte) on Mar 19, 2008 at 11:44 UTC |