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_exit("Are you kidding? Please give me a right range of nodes.");

}

else

{

$begin_node = $begin;

$end_node = $end;

}

}

sub free_nodes()

{

print "Free nodes between node  $begin_node and $end_node:\n";

for($node = $begin_node; $node < $end_node; $node++)

{

if($node < 10)

{

if($USING !~ /node00$node\/0/)

{

print "node00$node\/0\n";

}

if($USING !~ /node00$node\/1/)

{

print "node00$node\/1\n";

}

}

elsif($node < 100)

{

if($USING !~ /node0$node\/0/)

{

print "node0$node\/0\n";

}

if($USING !~ /node0$node\/1/)

{

print "node0$node\/1\n";

}

}

elsif($node < $MAX)

{

if($USING !~ /node$node\/0/)

{

print "node$node\/0\n";

}

if($USING !~ /node$node\/1/)

{

print "node$node\/1\n";

}

}

else

{

my_exit("Do you have so many nodes? Please change \$MAX in the beginning of this script.");

}

}

}

if( not defined($ARGV[0]) || not defined ($ARGV[1]))

{

usage();

}

check_opt($ARGV[0],$ARGV[1]);

if("$USING" eq "")

{

my_exit("I can't find any free node!");

}

else

{

free_nodes();

}

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值