linux 查看空闲节点,用qstat查PBS空闲节点(CPU)

嗯，$MAX为最大节点数，假设qstat得到的占用的节点信息为node123这样的形式。

注意，source了LSF的一些环境变量后会有问题。

#!/usr/bin/perl

use strict;

my $begin_node;

my $end_node;

my $node;

my $USING=`qstat -an | grep node`;

chomp($USING);

my $MAX=384;

sub usage()

{

print "Usage:   $0 begin_node end_node\n";

print "Eg.:     $0 192 384 [check free node(s) between node192 and node384]\n";

exit;

}

sub my_exit($)

{

print "$_[0]\n";

exit;

}

sub check_opt($$)

{

my $begin = shift;

my $end = shift;

if(("$begin" > "$end") || ("$begin" <= "0")  || ("$end" <= "0") || ("$end" > "$MAX"))

{

my_