[Bio] / FigKernelScripts / assign_to_hypo.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/assign_to_hypo.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Mon Dec 1 20:46:40 2003 UTC revision 1.2, Thu Apr 8 11:49:33 2004 UTC
# Line 26  Line 26 
26  }  }
27  close(TMP);  close(TMP);
28  $parms = join(" ",@ARGV);  $parms = join(" ",@ARGV);
29  &FIG::run("auto_assign $parms < /tmp/tmp$$.fids | make_calls");  foreach $_ (`auto_assign $parms < /tmp/tmp$$.fids | make_calls`)
30    {
31        if (($_ =~ /^\S+\t(\S[^\t]+\S)/) && (! &FIG::hypo($1)))
32        {
33            print $_;
34        }
35    }
36  unlink("/tmp/tmp$$.fids");  unlink("/tmp/tmp$$.fids");
37    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3