madhatter has asked for the wisdom of the Perl Monks concerning the following question:
I'm trying to get information from port 43030 and forward its contents to other IP:Ports. My problem is that the loop runs twice, but uses the first "forward to" IP and port both times.
I can receive data fine, and it forwards information (be it twice to the same IP/port, but my socket code _does_ work)
$CFG{listen_port} = 43030; %data = ( '24.25.32.4' => [ ["192.168.0.3","43035"], ["192.168.0.3","43040"], ], ); $socket = IO::Socket::INET->new(LocalPort => $CFG{listen_port}, Type = +> SOCK_DGRAM, Proto => 'udp') || die "ERROR: can't open socket\n"; while ($socket->recv($in, 1024) ) { $ip = inet_ntoa($socket->peeraddr); # print "Info from $ip"; foreach(@{$data{$ip}}){ my $tip = ${$_}[0]; $sock = IO::Socket::INET->new(Proto => 'udp', PeerPort => +$data{$ip}[$tip][1], PeerAddr => $data{$ip}[$tip][0]); $sock->send($in) or die "send: $!"; print "Sent to $data{$ip}[$tip][0]:$data{$ip}[$tip][1]\n"; } print $in; }
I don't usually mess with complex data structures because of problems like this. Once I get this worked out though, and I can loop through different layers, I think they'll come in handy.
Any help on how to get it to loop properly would be greatly appreciated. Note: I'm using extra variables to try to make things easier. ($tip = temporary IP) I realize the code sucks. I haven't cleaned it up yet.
Thanks for any help you could offer,
madhatter
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Troubles with Complex Data Structures
by chipmunk (Parson) on Jan 23, 2001 at 03:10 UTC |
Back to
Seekers of Perl Wisdom