Cut short the code

[karthik2423]

Hi,
Here's a code which I need to cut short using file handling... Please hv a look into it..

#!/usr/bin/perl
use strict;
 
print "Enter 1 for device1\n";
print "Enter 2 for device2\n";
...
....
...
..
..
print "Enter n for device n \n";
 

Depending on the user input, I need to run the command -
nslookup $x where x is the number from 1 to n and $x is a unique value for each device n.

Could you please tell me how I can implement this?


Thanks in advance,
Karthik

[jabirahmed]

Try using a loop

for (my $i = 0; $i < MAX; $i++){
    print "Enter 1 for device1\n";
    my $c = <STDIN>;
    chomp($c);
    &execCMD($c);
}
 

[miller]

Greetings Karthik,

jabirahmed's code is exactly what you need. Or a little simplified.

for my $i (1..$n) {
    print "Enter $i for device$i\n";
}
 

I suggest that you read a book on beginning perl:

http://www.perl.org/books/beginning-perl/

Chapter 4 covers Loops and Decisions, which would include a discussion of the for loop.

- Miller