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

Diff of /FigKernelScripts/changed_starts.pl

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

revision 1.1, Sat Jul 23 16:04:32 2005 UTC revision 1.3, Wed Aug 3 22:57:30 2005 UTC
# Line 1  Line 1 
1    # -*- perl -*-
2    
3  use FIG;  use FIG;
4    
# Line 13  Line 14 
14    
15  while (defined($entry = <PROPOSED>))  while (defined($entry = <PROPOSED>))
16  {  {
17      if ($entry =~ /ID=(fig\|\d+\.\d+\.peg\.\d+).*\nOLD_START_POS=(\d+)\nNEW_START_POS=(\d+).*?CONF_GAP=(\S+).*?NEW_START_LOC=(\S+)_(\d+)_(\d+)\n/s)      if ($entry =~ /ID=(\S+).*\nOLD_START_POS=(\d+)\nNEW_START_POS=(\d+).*?CONF_GAP=(\S+).*?NEW_START_LOC=(\S+)_(\d+)_(\d+)\n/s)
18      {      {
19          ($peg,$old_pos,$new_pos,$conf_gap,$contig,$beg,$end) = ($1,$2,$3,$4,$5,$6,$7);          ($peg,$old_pos,$new_pos,$conf_gap,$contig,$beg,$end) = ($1,$2,$3,$4,$5,$6,$7);
20    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3