Filter new abaumannii 'species' column (Issue #8)

tseemann · Oct 27, 2015 · 81c0b0f · 81c0b0f
1 parent d1121b0
commit 81c0b0f
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/bin/mlst b/bin/mlst
@@ -137,7 +137,8 @@ sub scheme_alleles {
   my $header = <TSV>;
   chomp $header;
   my @x = split m/\t/, $header;
-  pop(@x) if $x[-1] eq 'clonal_complex';
+  pop(@x) if $x[-1] =~ m/species/;
+  pop(@x) if $x[-1] =~ m/clonal_complex/;
   return @x[1 .. $#x];
 }
 
@@ -160,7 +161,7 @@ sub load_scheme {
       next;
     }
     if ($. == 1) {
-      @gene = grep { $_ !~ m/(^ST|complex|clade)/  } @x;
+      @gene = grep { $_ !~ m/(^ST|complex|clade|species)/  } @x;
       $st{GENES} = [ @gene ];
       print "Allelles: @gene\n" if $verbose;
     }