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

my $ping = "/usr/sbin/ping";
while (<DATA>){
  chomp;
  my $ping_out = `$ping $_ 2> /dev/null`;
  chomp ($ping_out);
  if ($ping_out !~ /is alive/){ print "$_ isn't pinging\n"; }
}

__DATA__
server1
server2
server3
[download]

This sounds a lot like a job that is ordinarily performed with standard network monitoring applications (such as Nagios). Is there a reason you're rolling your own, or would an existing tool be able to solve your problem?

Just an FYI: Nagios as a VMWare appliance is pretty nice and easy to setup and is a nice introduction to vmware if you ever want to go that way. The appliance is completly free and last time I tried it, came with a nice configuration tool. http://www.entisys.com/nagiosvma/1.0/update.html


___________
Eric Hodges

Try this:

if ($ping_out !~ /bytes from/) { 
    print "$_ isn't pinging\n";
}
else {
    print "$_ is up\n";
}
[download]

#!/usr/bin/perl

use strict;
use warnings;

my $ping = "/bin/ping";

while (<DATA>) {
    chomp;
    my $ping_out = `$ping $_ 2> /dev/null`;
    chomp ($ping_out);
    if ($ping_out !~ /bytes from/) {
        print "$_ isn't pinging\n";
    } else {
        print "$_ is up\n";
    }

}

__DATA__
myserver02
[download]

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

my $ping = "/bin/ping";
while (<DATA>){
  chomp;
  my $ping_out = `$ping $_ 2> /dev/null`;
  chomp ($ping_out);
  if ($ping_out !~ /bytes from/) { 
    print "$_ isn't pinging\n";
}
else {
    print "$_ is up\n";
}

__DATA__
SERVER01
SERVER02
[download]

But.. I receive this when I run it:

[root@stewie ~]# perl 615424.pl 
Missing right curly or square bracket at 615424.pl line 17, at end of 
+line
syntax error at 615424.pl line 17, at EOF
Execution of 615424.pl aborted due to compilation errors.
[download]

Any clues??

Edit: g0n - code tags

Hi StarkRavingCalm,

As Fletch says, it looks like you're simply missing the '}' where marked below:

#!/usr/bin/perl

use strict;
use warnings;

my $ping = "/bin/ping";

while (<DATA>) {
    chomp;
    my $ping_out = `$ping $_ 2> /dev/null`;
    chomp ($ping_out);
    if ($ping_out !~ /bytes from/) {
        print "$_ isn't pinging\n";
    } else {
        print "$_ is up\n";
    }

#  <--- You're missing a '}' right here to end the while { } loop

__DATA__
SERVER01
SERVER02
[download]

Was there some reason that "Missing right curly or square bracket" didn't lead you to that conclusion?

And do you understand how to put <code> and </code> tags around your post so that it's readable?  If not, pay close attention when you hit "preview".  If it doesn't look right, don't click the "create" button until it does!  (You can continue clicking on "preview" until the post displays correctly).

---

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

Thanks for the help. I'm very new to Perl so some of this stuff can\will allude me unfortunaltly. I did see the error but what threw me off was the curly bracket right above where it said it was needed. And I'll pay more attention to my previews ; )

Let me try adding the bracket and I'll post my results.
Thanks!

Hard to tell since you didn't use <code></code> tags around it, but you're missing the } to close the while loop on or around line 17 of your source (before the DATA marker). Just like the error message says.

Seems to be a lot of that going around today. Did someone declare today "'Ignore the simple error message which explicitly states what's wrong' Day" and I just didn't get the memo?