skip unreviewed and fragment records
authorDon Armstrong <don@donarmstrong.com>
Tue, 26 Feb 2008 01:08:51 +0000 (01:08 +0000)
committerDon Armstrong <don@donarmstrong.com>
Tue, 26 Feb 2008 01:08:51 +0000 (01:08 +0000)
git-svn-id: file:///srv/svn/function2gene/trunk@35 a0738b58-4706-0410-8799-fb830574a030

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;