in reply to Finding Usable Nodes in our Cluster
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,}$/; }
That could be simplified to:
foreach ( `ganglia proc_run` ) { push @open, $_ if /\s1\s+$/; unshift @open, $_ if /\s0\s+$/; }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Finding Usable Nodes in our Cluster
by Andrew_Levenson (Hermit) on Apr 11, 2008 at 17:05 UTC | |
by jwkrahn (Abbot) on Apr 11, 2008 at 20:05 UTC | |
by Andrew_Levenson (Hermit) on Apr 11, 2008 at 20:18 UTC | |
by jwkrahn (Abbot) on Apr 12, 2008 at 01:12 UTC | |
Re^2: Finding Usable Nodes in our Cluster
by Andrew_Levenson (Hermit) on Apr 11, 2008 at 16:48 UTC |
In Section
Cool Uses for Perl