Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Perl LSF module help

by ghosh123 (Monk)
on Jun 22, 2012 at 05:46 UTC ( #977777=perlquestion: print w/replies, xml ) Need Help??
ghosh123 has asked for the wisdom of the Perl Monks concerning the following question:

In my program I am running a LSF command (lsload -I tmp2 ). The output of which comes as following :

mylogin: lsload -I tmp2 HOST_NAME status tmp2 blrlc264 ok 3e+04 blrlc260 ok 4e+05 blrlc256 ok 4e+05

Is there any LSF module/subroutine in PERL which I can use to determine the maximum value under the tmp2 command (above) for a particular host. Right now I am doing it as :

use List::Util qw/max/; my $cmd = `lsload -I tmp2`; my @arr = split("\n", $cmd ); shift @arr; my @size; foreach (@arr) { my @row = split(" ", $_); push @size, $row[-1]; } my $maxsize = max @size ;


Replies are listed 'Best First'.
Re: Perl LSF module help
by frozenwithjoy (Priest) on Jun 22, 2012 at 05:54 UTC
Re: Perl LSF module help
by toolic (Bishop) on Jun 22, 2012 at 12:37 UTC
    FYI. backticks can also return a list.
    my $cmd = `lsload -I tmp2`; my @arr = split("\n", $cmd );

    can be simplified to:

    my @arr = `lsload -I tmp2`;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://977777]
Approved by Corion
beech testing in the sidebar
beech *me* me *me
beech *me* ... test
[beech]: ...
beech me *me* ... test me *me* test

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (4)
As of 2017-03-28 23:37 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (343 votes). Check out past polls.