note
Andrew_Levenson
Awesome, it works great! I updated it to include some formatting of the output to make everything pretty.<br><code>#!/usr/bin/perl
#Andrew Levenson
#2:13PM EST
#Thursday, April 10th, 2008
#Displays nodes on Deli with 0 or 1 used processors
use strict;
use warnings;
print "\n";
my @open=("\n", "One Active Processor:\n\n");
foreach ( `ganglia proc_run` )
{
unshift @open, $_ if /\s0\s+$/;
push @open, $_ if /\s1\s+$/;
}
print "Zero Active Processors:\n\n";
print $_ foreach(@open);
print "\n";
</code><!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-534091">
<code>
C(qw/74 97 104 112/);sub C{while(@_){$c**=$C;print
(map{chr($C!=$c?shift:pop)}$_),$C+=@_%2!=1?1:0}}</code>
</div></div>
679557
679611