check.qsub.jobs.process.pl

《check.qsub.jobs.process.pl》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、#!/usr/bin/perl-w=head1Name:check.qsub.jobs.process.pl,aperlscriptcanbeemployedtochecktherunningstatueofqsub-sgejobs.=head1Example:perlcheck.qsub.jobs.process.pl=head1Anthor:originalfromxiangfengli:xflee0608@163.com2014-4-18.=cutusestrict;useGetopt::Long;my$help;GetOptions("help

2、h"=

3、>$help,);die`pod2text$0`if($help);chomp(my@all=glob"*sh");chomp(my@done=`grep-il"this-work"*sh.o*`);chomp(my@qsub=glob"*sh.o*");my@unfinish=&get_jobs_lst(@done);my@unqsub=&get_jobs_lst(@qsub);my%hash=map{$_,1}@done;my@r=grep{!$hash{$_}}@qsub;my$all_num=@all;my$done_num=@done;my$q

4、sub_num=@qsub;my$q_num=0;my$r_num=0;if($all_num>$done_num){openOUT,">unfinish.lst";printOUT"$_"for@unfinish;closeOUT;warn"################Theunfinishedshellnameshadbeenlistedinthefile:t***unfinish.lst***";print"##thetotaljobsnumber:$all_num";print"##thefinishedjobsnumber:

5、$done_num";print"##theunfinishedjobsnumber:",$all_num-$done_num,"";}elsif($all_num==$done_num&&$all_num>=1){print"##################thetotaljobsnumber:$all_num";warn"Congratunations!alljobshadbeendone!";}if($all_num>$qsub_num){openOUT1,">unqsub.lst";printOUT1"$_"for@un

6、qsub;closeOUT1;chomp($q_num=(split/s+/,`wc-lunqsub.lst`)[0]);warn"################Theunqsubshellnameshadbeenlistedinthefile:t***unqsub.lst***";print"##theunqsubjobsnumber:$q_num";}if(@r){openOUT2,">running.lst";foreachmy$i(@r){my($sh,$id)=(split/.o/,$i)[0,1];my$info=`no

7、hupqstat-j$id

8、grepjob_number&`;printOUT2"$sh"if($info=~/^job_number/);}closeOUT2;chomp($r_num=(split/s+/,`wc-lrunning.lst`)[0]);unless($r_num){system"rmrunning.lst";}else{warn"##################Now$r_numjob(s)running!runningnameslistedinthefile:t***running.lst***####

9、############";}}my$sum=$all_num-$done_num-$q_num-$r_num;if($sum){if($r_num&&$q_num){system"nohupcatrunning.lstunqsub.lst>all.undo.lst&";}elsif($r_num&&$q_num==0){system"nohupcatrunning.lst>all.undo.lst&";}elsif($r_num==0&&$q_num){system"nohupcatunqsub.lst>all.undo.lst&";}elsif($r_

10、num==0&&$q_num==0){