in reply to Re^3: Finding Usable Nodes in our Cluster
in thread Finding Usable Nodes in our Cluster
#!/usr/bin/perl #Andrew Levenson #4:14PM EST #Friday, April 11th, 2008 #Displays nodes on Deli with 0 or 1 used processors use strict; use warnings; my $zero = "\nZero Active Processors:\n\n"; my $one = "\nOne Active Processor:\n\n"; foreach ( `ganglia proc_run` ) { $zero .= $_ if /\s0\s+$/ & !/deli/; $one .= $_ if /\s1\s+$/ & !/deli/; } print "$zero$one\n";
C(qw/74 97 104 112/);sub C{while(@_){$c**=$C;print (map{chr($C!=$c?shift:pop)}$_),$C+=@_%2!=1?1:0}}
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^5: Finding Usable Nodes in our Cluster
by jwkrahn (Abbot) on Apr 12, 2008 at 01:12 UTC |