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";
C(qw/74 97 104 112/);sub C{while(@_){$c**=$C;print
(map{chr($C!=$c?shift:pop)}$_),$C+=@_%2!=1?1:0}}