-
-sub expand_range {
- my $range = shift;
-
- if ($range =~ /^(\d+)\.\.(\d+)$/) {
- return $1..$2;
- } else {
- return $range;
- }
-}
-
-sub match_ranges {
- my ($elem, $ranges) = @_;
-
- for my $range (@$ranges) {
- if ($range =~ /^(\d+)\.\.(\d+)$/) {
- return 1 if ($elem >= $1 && $elem <= $2);
- } else {
- return 1 if ($elem == $range);
- }
- }
-
- return 0;
-}