Beefy Boxes and Bandwidth Generously Provided by pair Networks chromatic writing perl on a camel
"be consistent"
 
PerlMonks  

Perl LSF module help

by ghosh123 (Scribe)
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 making s'mores by the fire in the courtyard of the Monastery: (4)
As of 2014-04-19 13:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (480 votes), past polls