H
Hans
Hi,
I'm trying to write a udp client script, I already have:
my $sock = new IO::Socket::INET (
PeerAddr => $host,
PeerPort => $port,
Proto => $proto,
);
die "Could not create socket: $!\n" unless $sock;
my $do =1;
while $do {
print $sock "ping request from initiator,id is $i \n";
if ($line = <$sock>) {
print "receive: $line \n";
}
$i++;
sleep(1);
}
My problem is it will always wait to receive something before sending
next ping request. if no response from server, then it stops sending.
I hope it can keep sending no matter if there is response.
Anybody can help? thanks!
Hans
I'm trying to write a udp client script, I already have:
my $sock = new IO::Socket::INET (
PeerAddr => $host,
PeerPort => $port,
Proto => $proto,
);
die "Could not create socket: $!\n" unless $sock;
my $do =1;
while $do {
print $sock "ping request from initiator,id is $i \n";
if ($line = <$sock>) {
print "receive: $line \n";
}
$i++;
sleep(1);
}
My problem is it will always wait to receive something before sending
next ping request. if no response from server, then it stops sending.
I hope it can keep sending no matter if there is response.
Anybody can help? thanks!
Hans