Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

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
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (6)
As of 2017-06-29 11:17 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (660 votes). Check out past polls.