Help for this page

Select Code to Download

Select or download this

use Set::IntSpan;
my $span = Set::IntSpan->new('1-4,9,16,22-24,30,35');
print join "," => $span->elements();