Raw File
filter_bqm_for_errors
#!/usr/bin/env genome-perl

use strict;
use warnings;

my $found_error = 0;
my @stdin;
while (my $stdin = <>) {
    push @stdin, $stdin;
    $found_error = 1 if ($stdin =~ /ERROR:/);
}
$found_error = 1 if ($stdin[-1] !~ /^COMMITTED$/) and ($stdin[-2] !~ /^No queued models found to start\.$/);

if ($found_error) {
    print @stdin;
}
back to top