BismarkAlignSucceedCheck.pl
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'; }