skip unreviewed and fragment records
[function2gene.git] / bin / parse_uniprot_results
index 6b90eb7..96a176d 100755 (executable)
@@ -136,6 +136,8 @@ FILE: while ($_ = $dir->read) {
          if (not defined $current_field and $type ne 'ID') {
               next FILE;
          }
+         next FILE if $type eq 'DE' and $data =~ /\(Fragment\)/;
+         next FILE if $type eq 'ID' and $data =~ /Unreviewed;/;
          if (not defined $current_field or $current_field->{type} ne $type) {
               if (defined $current_field) {
                    push @fields,$current_field;