Re: limiting number of snmp requests

I don't know how snmp works and what an oid is. But to process an array in batches of 50, you can use splice:

#!/usr/bin/perl
use warnings;
use strict;

my @oids = (1 .. 370);
while (@oids) {
    print "Starting iteration\n";
    my @process = splice @oids, 0, 50;
    print "probe $_\n" for @process;
}
[download]

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Comment on Re: limiting number of snmp requests Download Code

Replies are listed 'Best First'.
Re^2: limiting number of snmp requests by karlgoethebier (Abbot) on Nov 09, 2015 at 21:52 UTC
..."I don't know how snmp works and what an oid is" You'll Never Walk Alone SNMP Net-SNMP snmpwalk Net::SNMP Regards, Karl «The Crux of the Biscuit is the Apostrophe»	[reply]
Re^2: limiting number of snmp requests by t_rex_joe (Sexton) on Nov 10, 2015 at 19:44 UTC
Dilip, Here's another way of doing the loop. I am assuming the oids are the same everytime you execute the script. You did not specify if the script was executed once or many times to remember it's stopping point. I took the code from choroba and changed a few lines. `#!/usr/bin/perl use warnings; use strict; my @oids = ( '.1.2.3.4.2.1.3.0', '.1.23.4.2.1.3.4.0'); my $oid = undef; my $ct = 0; foreach $oid (@oids) { if ($ct > 50) { print "PROBED CT: \"$ct\" OIDS. SLEEPING X\n"; sleep + 10; $ct = 0; } print "PROCESSING OID: \"$oid\" \n"; $ct += 1; }` [download] Joe	[reply] [d/l]