note
Andrew_Levenson
Wow, that's fantastic. I hadn't even considered that approach. It's nice because the formatting of the output of <code>`ganglia proc_run`</code> is conducive to being easily read with minimal reformatting effort.<br><br>Is there any considerable speed advantage to using the string instead of the array? Or does it have to do with memory usage?<br>Current form:<br><code>#!/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><!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-534091">
<code>
C(qw/74 97 104 112/);sub C{while(@_){$c**=$C;print
(map{chr($C!=$c?shift:pop)}$_),$C+=@_%2!=1?1:0}}</code>
</div></div>
679557
679838