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;
}
foreach $_(@bladeNumbers) {
my $blade = blade-.$_;
print $blade\n;
my $badPing = Destination Host
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
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 pings a
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 ){
## code here
}