#!/usr/bin/perl
#Andrew Levenson
#2:13PM EST
#Thursday, April 10th, 2008

#Displays nodes on ganglia with 0 or 1 used processors

use strict;
use warnings;
my @open=();
my $ganglia=`ganglia proc_run`;
my @results=split(/\n/, $ganglia);
foreach(@results)
{
	push @open, $_ if $_=~m/\s{1,}1\s{1,}$/;
	unshift @open, $_ if $_=~m/\s{1,}0\s{1,}$/;
}	
print "$_\n" foreach(@open);