another try at geneontology/pipeline#360

scripts/collate-gpads.pl

@@ -18,20 +18,30 @@
 # maps group names to filehandles;
 # e.g. zfin => wrte filehandle for zfin.gpad
 my %fhmap = ();
-while (glob($full_glob)) {
-  next if (m@^\!@);
-  chomp;
-  my @vals = split(/\t/, $_);
-
-  ## MGI annotations to PR go to MGI.
-  my $index_override = '';
-  if ( $vals[0] eq 'PR' && $vals[9] eq 'MGI' ) {
-    $index_override = 'MGI';
-  } elsif ( $vals[0] eq 'RefSeq' && $vals[9] eq 'MGI' ) {
-    $index_override = 'MGI';
-  }
+while (my $curr_model = glob($full_glob)) {
+
+  open( my $input_fh, "<", $curr_model ) || die "Can't open $curr_model: $!";
+  while (<$input_fh>){
+
+    next if (m@^\!@);
+    chomp;
+    my @vals = split(/\t/, $_);
 
-  write_line_to_file($vals[0], $index_override, $_);
+    ## MGI annotations to PR go to MGI.
+    my $index_override = '';
+    if ( $vals[0] eq 'PR' && $vals[9] eq 'MGI' ) {
+      $index_override = 'MGI';
+    } elsif ( $vals[0] eq 'RefSeq' && $vals[9] eq 'MGI' ) {
+      $index_override = 'MGI';
+    }
+
+    print $vals[0] . "...\n";
+    print $index_override . "...\n";
+    print $_ . "...\n";
+
+    write_line_to_file($vals[0], $index_override, $_);
+  }
+  close($input_fh);
 }
 foreach my $fh (values %fhmap) {
   $fh->close();