Programming

my $str = "1, 2 ,3, 4,6 -10,11 - 15,16, 17";

$str =~ s/\s+//g;
$str =~ s/-/\.\./g;
my @arr = split /,/, $str;
for (@arr){
    my $i = $_;
    print "==>>> $i\n";
}

==>>> 1 ==>>> 2 ==>>> 3 ==>>> 4 ==>>> 6..10 ==>>> 11..15 ==>>> 16 ==>>> 17

==>>> 1 ==>>> 2 ==>>> 3 ==>>> 4 ==>>> 6 ==>>> 7 ==>>> 8 ==>>> 9 ==>>> 10 ==>>> 11 ==>>> 12 ==>>> 13 ==>>> 14 ==>>> 15 ==>>> 16 ==>>> 17

% perl -le'

  $str = "1, 2 ,3, 4,6 -10,11 - 15,16, 17";

  $str =~ s/(\d+)\s*-\s*(\d+)/@{[$1..$2]}/g;

  print "==>>> $_" for split /[\s,]+/, $str;

  '
==>>> 1
==>>> 2
==>>> 3
==>>> 4
==>>> 6
==>>> 7
==>>> 8
==>>> 9
==>>> 10
==>>> 11
==>>> 12
==>>> 13
==>>> 14
==>>> 15
==>>> 16
==>>> 17

my @arr = eval $str;

$str =~ s/(\d+)-(\d+)/join(",",$1..$2)/ge;