I'm writing a small socket program (UDP) to communicate between two servers.
Problem is, I dont know how to implement time out hence my script keeps on waiting for the peer response.
Code:
#!/usr/bin/bash
use IO::Socket::INET;
$|=1;
$socket=new IO::Socket::INET->new(LocalPort=>5001,
Proto=>'udp',
timeout=>5);
print "\nUDPServer Waiting for client on port 5001 and will timeout in 5 secs";
$socket->recv($recieved_data,1024);
print "\nReceived data $recieved_data \n \n";
Here if there is no message received the script keeps on waiting forever..
I couldnt understand the use of timeout here (i guess its for udp). Googling for this issue redirects me to select() and alarms, where im stuck with my little knowledge in perl.
Hi,
I want to bundle if statements
The script which i created is
if ]; then
if ]; then
now=`TZ=CST+24 date +%Y-%m-%d`
nows=`TZ=CST+24 date +%Y-%m-%d` ;
else ]; then
now=`TZ=CST+48 date +%Y-%m-%d`
nows=`TZ=CST+48 date +%Y-%m-%d` ;
fi
now=`TZ=CST+24 date +%Y-%m-%d`
nows=`date... (2 Replies)
Dear friends,
I am trying to prepare a shell script which do the following task. Being a beginner in scripting I need a bit of help from you all for shell script which does the following job.
1.Check for existence of a file in a shared directory (at some remote location ) once in a day ... (1 Reply)
Hi
I have a script that carries out a "grep" command, and displays the output on screen.
What I need to do is utilise the exit status of this grep, so that, for example, if it returns no entries, it asks the user if they want to set up a new user, and if the grep returns an entry, it states... (1 Reply)
Hi Guys,
I have one requirement like if we run install.sh file it should have to create a zone and install oracle in that zone with out any user interaction. So the complete code should be automated.
Almost 90% of the code I completed but i am having some doubts
1) After the zone creation... (1 Reply)
Hi
I am new to PHP.
I have to changed a website design adn add certain features and lnks which shuld direct it towards other website.
Can any body help me how to proceed. I have some already made templates to do this. I am conpletely new..
So, I have to first install Php from... (0 Replies)
I have a script which uses cli curl to download the source code of a webpage and then tests if a specific string exists in the source.
The problem is that the website has a slow response, so the eval expression hasn't completed when the test starts.
The test returns a negative, and the curl... (8 Replies)
Hi there,
Say I have a list of IPs, I am running scripts on them. If the process hang.
I want to continue with the rest of the IPs.
10.11.1.1
10.11.1.2
10.11.1.3
10.11.1.4
10.11.1.5
10.11.1.6 <-- Process Hangs here
10.11.1.7
10.11.1.8
10.11.1.9
10.11.1.10
10.11.1.11
10.11.1.12
... (11 Replies)
Discussion started by: alvinoo
11 Replies
LEARN ABOUT DEBIAN
net::server::proto::udp
Net::Server::Proto::UDP(3pm) User Contributed Perl Documentation Net::Server::Proto::UDP(3pm)NAME
Net::Server::Proto::UDP - Net::Server UDP protocol.
SYNOPSIS
See Net::Server::Proto.
DESCRIPTION
Protocol module for Net::Server. This module implements the SOCK_DGRAM socket type under INET (also known as UDP). See
Net::Server::Proto.
PARAMETERS
The following paramaters may be specified in addition to normal command line parameters for a Net::Server. See Net::Server for more
information on reading arguments.
udp_recv_len
Specifies the number of bytes to read from the UDP connection handle. Data will be read into $self->{'server'}->{'udp_data'}. Default
is 4096. See IO::Socket::INET and recv.
udp_recv_flags
See recv. Default is 0.
udp_broadcast
Default is undef.
QUICK PARAMETER LIST
Key Value Default
## UDP protocol parameters
udp_recv_len d+ 4096
udp_recv_flags d+ 0
udp_broadcast bool undef
INTERNAL METHODS
"object"
Returns an object with parameters suitable for eventual creation of a IO::Socket::INET object listining on UDP.
"connect"
Called when actually binding the port. Handles default parameters before calling parent method.
LICENCE
Distributed under the same terms as Net::Server
perl v5.14.2 2012-05-29 Net::Server::Proto::UDP(3pm)