#!/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";
[download]

C(qw/74 97 104 112/);sub C{while(@_){$c**=$C;print
(map{chr($C!=$c?shift:pop)}$_),$C+=@_%2!=1?1:0}}
[download]