[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.2, Thu Jul 28 17:45:37 2005 UTC
# Line 13  Line 13 
13    
14  while (defined($entry = <PROPOSED>))  while (defined($entry = <PROPOSED>))
15  {  {
16      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)
17      {      {
18          ($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);
19    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3