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

Diff of /FigKernelScripts/gather_pg_sets.pl

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

revision 1.1, Thu Nov 10 16:29:49 2011 UTC revision 1.2, Thu Nov 10 16:32:03 2011 UTC
# Line 28  Line 28 
28          {          {
29              chop;              chop;
30              my @pegs = split(/\t/,$_);              my @pegs = split(/\t/,$_);
31              foreach $_ (@pegs) { $rep_peg = 1 }   #### mark pegs in repeats              foreach $_ (@pegs) { $rep_peg{$_} = 1 }   #### mark pegs in repeats
32              for (my $i=1; ($i < @pegs); $i++)              for (my $i=1; ($i < @pegs); $i++)
33              {              {
34                  print RP join("\t",($pegs[0],$pegs[$i])),"\n";                  print RP join("\t",($pegs[0],$pegs[$i])),"\n";

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3