#!/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]

..."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»

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

Hello dilip.renkila,

If you want to probe each OID once only, then choroba’s approach is the correct one. But if you want to repeatedly re-probe the OIDs in batches of 50, you will need a circular list. See How do I handle circular lists? Here is one method:

#! perl
use strict;
use warnings;
use Tie::Cycle;

my @oids = (1 .. 370);

tie my $oid, 'Tie::Cycle', \@oids;

my $answer = 'Y';

while ($answer !~ /N/i)
{
    print "Starting iteration\n";

    print "probe $oid\n" for 1 .. 50;

    print "Continue? ";
    $answer = <STDIN>;
}
[download]

This should give you an idea of how to proceed.

Hope that helps,

Sounds like a job for natatime from List::MoreUtils

the help says this :-

natatime EXPR, LIST
    Creates an array iterator, for looping over an array in chunks of 
+$n items
    at a time. (n at a time, get it?). An example is probably a better
    explanation than I could give in words.

    Example:

      my @x = ('a' .. 'g');
      my $it = natatime 3, @x;
      while (my @vals = $it->())
      {
        print "@vals\n";
      }

    This prints

      a b c
      d e f
      g
[download]