When i ping 3 ipaddress in my code, only the 3rd ip is pinging? what is the error?

[dawood munavar]

!/usr/bin/perl
 
#To check the servers can able to ping or not
print " ENTER THE NUMBER OF SERVERS \n";
 
$servers = <STDIN>;
 
for ( $i = 1 ; $i <= $servers ; $i++ ) {
    print "ENTER THE SERVER $i IP ADDRESS \n";
    $i[a] = <STDIN>;
}
 
use Net::Ping;
 
$p = Net::Ping->new();
 
for ( $i = 1 ; $i <= $servers ; $i++ ) {
    if ( $p->ping("$i[a]") ) {
        print "$i[a] \n PING IS SUCESSSSSS!!!! \n";
    } else {
        print "$i[a] \n \a REQ TIMED OUT \n";
    }
}
 

#In this perl code, im getting the input as ip address from the user and pinging it. when i compile and run this code, say when i get 3 ipaddress from the user only my 3rd ip is pinging. So could you please tell me what is the error?

[Rabbit]

You're using the same variable for as both the array and counter? You should probably use different variables. Also, you're not incrementing your array index.

[miller]

You're code is full of errors with regard to your variables. Add use strict; and use warnings to the start of your script.

After you fix all the errors adding those lines will report to you, repost your code and we can help you from there.

[dawood munavar]

#In this perl code, im getting the input as ip address from the user and pinging it. when i compile and run this code, say when i get 3 ipaddress from the user only my 3rd ip is pinging. So could you please tell me what is the error?

#!/usr/bin/perl
#To check the servers can able to ping or not
 
print " ENTER THE NUMBER OF SERVERS \n";
 
my $servers=<STDIN>;
 
for($i=1; $i<=$servers; $i++){ 
    print "ENTER THE SERVER $i IP ADDRESS \n";
    $i[a]=<STDIN>;
}
 
use Net::Ping;
 
$p=Net::Ping->new();
 
for( $i=1; $i<=$servers; $i++) {
    if($p->ping("$i[a]")) {
        print "\n PING IS SUCESSSSSS!!!! \n";
        print "$i[a] \n";
 
    } else {
        print "\n \a REQ TIMED OUT \n";
        print "$i[a] \n";
    }
}
 

[miller]

dawood munavar,

I've merged your threads asking the same question. Please continue your work on this issue in this thread.

You still haven't followed the advice that I gave you originally. Change the beginning of your script to the following:

#!/usr/bin/perl
#To check the servers can able to ping or not
 
use strict;
use warnings;
 

After you fix all the errors that will report to you, then repost your code and we can help you.

Regards,
- Miller