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

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:

Hi
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 ;

Thanks

Comment on Perl LSF module help
Select or Download Code
Re: Perl LSF module help
by frozenwithjoy (Curate) on Jun 22, 2012 at 05:54 UTC
Re: Perl LSF module help
by toolic (Chancellor) 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?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://977777]
Approved by Corion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (16)
As of 2014-12-22 13:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (118 votes), past polls