Re^4: Finding Usable Nodes in our Cluster

in reply to Re^3: Finding Usable Nodes in our Cluster
in thread Finding Usable Nodes in our Cluster

Wow, that's fantastic. I hadn't even considered that approach. It's nice because the formatting of the output of `ganglia proc_run` is conducive to being easily read with minimal reformatting effort.

Is there any considerable speed advantage to using the string instead of the array? Or does it have to do with memory usage?
Current form:

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

In Section Cool Uses for Perl