Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re^3: Find overlap

by Anonymous Monk
on Oct 14, 2012 at 03:37 UTC ( #998909=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    
    ...
    foreach (keys %minmax) {
        print "$_: min: $minmax{$_}{min} max: $minmax{$_}{max}\n";
    }
    
  2. or download this
    chr1    4   60
    chr2    2   40
    chr3    4   90
    chr1    5   40
    
  3. or download this
    chr2    1   30
    chr1    6   20
    chr4    9   100
    
  4. or download this
    chr1    2   20
    chr2    2   90
    chr1    6   20
    chr4    4   30
    
  5. or download this
    chr2    4   90
    chr3    3   90
    chr2    4   90
    chr4    3   90
    chr2    4   30
    
  6. or download this
    chr1: min: 2 max: 60
    chr2: min: 1 max: 90
    chr3: min: 3 max: 90
    chr4: min: 3 max: 100