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


##</code><code>##




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