Perl Socket time out too small

h3x has asked for the wisdom of the Perl Monks concerning the following question:

Hi i have a snmp enumerator which is supposed to gather snmp info but the problem is that the ordinary time out is 40 sec and the T max is 60 seconds. I was wondering is there a way to increase this time out in the IO::socket module? here is a snippet of the code:

 
#!/usr/bin/perl
use strict;
use Getopt::Std;
use IO::Socket;
use Net::SNMP;
---------------------
my $remote    = $opt_t;
my $community = $opt_c || "public";
my $port      = $opt_p || 161;
my $snmpver   = $opt_v || 1;
my $retries   = $opt_r || 2;
my $timeout   = $opt_T || 40;

my $timeout   = $opt_T || 40;
[download]

Comment on Perl Socket time out too small Download Code

Replies are listed 'Best First'.
Re: Perl Socket time out too small by erroneousBollock (Curate) on Oct 24, 2007 at 07:09 UTC
Doesn't the Timeout option for the IO::Socket::INET constructor work for you? -David	[reply]
Re^2: Perl Socket time out too small by h3x (Acolyte) on Oct 24, 2007 at 07:38 UTC
David i dont understand your question....kindly rephrase... I have the IO::Socket::INET installed but it doesnt increase the time out.	[reply]
Re^3: Perl Socket time out too small by erroneousBollock (Curate) on Oct 24, 2007 at 08:01 UTC
You normally wouldn't use IO::Socket directly. If you want a TCP socket, you'd use IO::Socket::INET which is a sub-class of IO::Socket. The constructor of IO::Socket::INET takes as parameters a "flattened hash" of arguments. Like so: `my $sock = IO::Socket::INET->new( OptionFoo => 1, OptionBar => 'something', OptionBaz => 10 );` [download] If you read the IO::Socket::INET documentation, you'll see that one of the options mentioned is called 'Timeout', and is likely the option you'll need to change. I'd imagine something like: `use strict; use warnings; use IO::Socket::INET; my $sock = IO::Socket::INET->new( PeerAddr => '123.45.67.89', # IP address PeerPort => '2000', # port Timeout => '60' # timeout in seconds ); # rest of your code using $sock.` [download] Is that easier to understand ? -David	[reply] [d/l] [select]
Re^4: Perl Socket time out too small by bloonix (Monk) on Oct 24, 2007 at 12:39 UTC
Re: Perl Socket time out too small by TOD (Friar) on Oct 24, 2007 at 11:31 UTC
what if you try fiddle about the 'queue' argument for the ...::INET constructor? might that be some kind of a relief? -------------------------------- masses are the opiate for religion.	[reply]
Re^2: Perl Socket time out too small by h3x (Acolyte) on Oct 25, 2007 at 08:43 UTC
well i did tweak the IO::Socket::INET but this even slows down the k0de. Adding what David had suggestedbut...still no luck. I did insert the code snippet as you had suggested but doesnt that mean i have to introduce the variable $my sock? Thanks!	[reply]