Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...

print "ranges $ranges\n   out $out\n  want $want\n";
$out eq $want or die "**Mismatch**";
  2. or download this
    ranges 5-10,14-18,22-27
   out A-A-A-A-X-X-X-X-X-X-B-B-B-X-X-X-X-X-A-A-A-X-X-X-X-X-X-B-B-B
  want A-A-A-A-X-X-X-X-X-X-B-B-B-X-X-X-X-X-A-A-A-X-X-X-X-X-X-B-B-B