Hi,
Christopher Spears <[EMAIL PROTECTED]> wrote:
> I've decided to rework my Perl script that pings a blade and
> checks for nrnode:
>
> my @bladeNumbers = @ARGV;
>
> if (scalar @bladeNumbers == 0) {
> print "No blades entered!\n";
> exit;
> }
if( my @bladeNumbers = @ARGV ){
## cod
if (`ping $blade` =~ /$badPing/) {print "$blade:
$badPing\n";}
change to:
my @results=`ping -c1 $blade`;
print "$blade:$badPing\n" if grep /$badPing/,@results;
On Fri, 9 Sep 2005 01:41:19 -0700 (PDT), "Christopher Spears"
<[EMAIL PROTECTED]> said:
> I've decided to rework my Perl script that
Christopher Spears am Freitag, 9. September 2005 10.41:
> I've decided to rework my Perl script that pings a
> blade and checks for nrnode:
use strict;
use warnings;
> my @bladeNumbers = @ARGV;
> if (scalar @bladeNumbers == 0)
unless (@bladeNumbers)
(A list is evaluated in scalar context when