BismarkAlignSucceedCheck.pl

From ZhangLabWiki
Jump to navigation Jump to search
#/usr/bin/perl
use strict;
use Cwd;
chdir getcwd;
my @err=glob("*err");
foreach my $err(@err){
my ($sam,undef)=split /\.err/,$err;
my $rlt="no";
open F,$err;
while(<F>){
$rlt="yes" if /Bismark run complete/;
}
# print "$err\t$rlt\n" if $rlt eq "no";
print "qsub $sam\.job\n" if $rlt eq 'no';
}