Help for this page

Select Code to Download


  1. or download this
    use Modern::Perl '2014';
use Number::Interval;
use List::Util qw/first/;
...
2156 3289 forward
99000 100000 forward
22000 23000 backward
  2. or download this
    99269 is in (99000,100000)
550 is in (517,1878)
1700 is in (517,1878)
  3. or download this
    for my $datapoint (@FILE1) {
    my @found = grep {$_->contains($datapoint)} @interval_objects;
    say "$datapoint is in @found" if @found;
}