mirror of
http://43.156.76.180:8026/YuuMJ/EukPhylo.git
synced 2025-12-28 03:30:24 +08:00
22 lines
456 B
Perl
22 lines
456 B
Perl
#!/usr/bin/perl -w
|
|
|
|
my $ans_out_file = "checkjob.out";
|
|
my $ans_err_file = "checkjob.err";
|
|
$qsub_job_no = 124222;
|
|
$error = 0;
|
|
$cmd = "checkjob $qsub_job_no >$ans_out_file 2>$ans_err_file";
|
|
`$cmd`;
|
|
#open ANS, $ans_res_file;
|
|
#while (<ANS>){
|
|
# if (/ERROR/){
|
|
# print "error was found!\n";
|
|
# $error = 1;
|
|
# last;
|
|
# }
|
|
#}
|
|
#if ($error==1){
|
|
# print "job $qsub_job_no does not exist\n";
|
|
#}
|
|
#else{
|
|
# print "job $qsub_job_no exist\n";
|
|
#} |