Perl LSF module 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
[download]

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 ;
[download]

Thanks

Comment on Perl LSF module help Select or Download Code

Replies are listed 'Best First'.
Re: Perl LSF module help by frozenwithjoy (Priest) on Jun 22, 2012 at 05:54 UTC
There is a `maxTmp` method in LSF::Base.	[reply] [d/l]
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 ); [download] can be simplified to: my @arr = `lsload -I tmp2`; [download]	[reply] [d/l] [select]