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

[CODE=perl]
#!/usr/bin/perl
use strict;

print "Enter 1 for device1\n";
print "Enter 2 for device2\n";
...
....
...
..
..
print "Enter n for device n \n";
[/CODE]

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

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

[miller]

Greetings Karthik,

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

[CODE=perl]
for my $i (1..$n) {
print "Enter $i for device$i\n";
}
[/CODE]

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