The problem is that your $placeholder value isn't set back to 0 when you finish testing a range, so you never go back to test the previous lines. The solution to your problem would be to add a $placeholder = 0 at the end of your foreach loop.

Now, if you want some advice on your code, first, I would have gone the other way around, have all the ranges in memory, and for each line of your data, test all ranges. And to keep track of the file that needs to be written on, an array of hashes could do the trick. Something like : 

[
   { start => 1, end => 1001, file => *FH1 },
   { start => 500, end => 2001, file => *FH2 }
]

[download]
Except the content would have been filled by perl instead of by hand like I just did :) . Then the algorithm would have been something like : 
for each line
   $position = getPosition()
   for $range in @ranges
      print $range->{FH} $line if (($position > $range->{start}) && ($
+position < $range->{end}))

[download]

Then, maybe you don't want to rewrite your whole code (that's why I didn't bother much), still, there are some useful things you might like to know. If you want to have a "do something for each value and stop when condition" construct in Perl, you can use the last keyword inside a foreach loop. In your case that would be : 

SNP:for my $snp (@SNPs) {
        my @get_SNPs = split(/\t/, $snp);
        my $position = $get_SNPs[3];

        last SNP if ($position > $end); # stop reading, we're out of r
+ange !
                                        
        if (($position >= $start) && ($position <= $end)) {
            print OUT "@get_SNPs";
        }
    }

[download]

Also, instead of 

@array = split /\t/, $string;
my $v1 = $array[1];
my $v2 = $array[2];

[download]
you can simply write my (undef, $v1, $v2) = split /\t/, $string;

In reply to Re: Sorting Data By Overlapping Intervals by Eily
in thread Sorting Data By Overlapping Intervals by ccelt09

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.