#!/usr/bin/perl
use strict;
use warnings;

use Data::Dumper;

my $text = '1-20,1,1,1,2,4,5,8,9,3-4';

my $list = _text_to_list( $text );
print Dumper $list;

sub _text_to_list {
    my $text = shift;

    my %numbers;
    my @list = split /,/, $text;

    for (@list) {
        my @range = split /-/;
        $range[1] = defined $range[1] ? $range[1] : $range[0];
        $numbers{$_} = 1 for $range[0] .. $range[1];
    }

    return [sort {$a <=> $b} keys %numbers];
}

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Data::Dumper;

my $text = '3,6-10,16,23';

my $list = &_text_to_list($text);
print Dumper $list;
exit;

sub _text_to_list {
    my @list = split( ',', shift );
    my @expanded = map {   /^(\d+)-(\d+)$/ ? ($1 .. $2)
                         : /^(\d+)$/       ? ($1)
                         : ()
                       } @list;
    my %hash = map { $_ => 1 } @expanded;
    @list = sort { $a <=> $b } keys %hash;
    return \@list;
}

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

my $string = '1-3,5,9,2-4,11-22,5,7';

# Ersetze Bereich durch einzelne Zeichen
# benutzt Ausführung von Perl in Ersetzungsteil des Regex
$string =~ s/((\d+)-(\d+))/join ',', $2..$3/ge;

# da numerisch nacheinadner gedruckt werden soll:
my @array = sort {$a <=> $b} split ',', $string;

my @array
        = sort { $a <=> $b }
          split ',',
          $string =~ 
            s/
              # fange die Bereichsangabe als zwei Gruppen bestehend aus Ziffern
              ((\d+)-(\d+))
            /            
              # ersetze durch Zeichenkette 
              # erzeugt durch join mit Komma 
              join ',', 
              # aus der Liste des ersten bis zweiten matches
              $2..$3
            /rgex;
        

Set::IntSpan::Fast::XS->new('3,6-10,16,23')->as_array
# (3, 6, 7, 8, 9, 10, 16, 23)

#!/usr/bin/perl

use warnings;
use strict;

sub text_to_list {
    my $a = shift;
    my @b = split(/,/, $a);
    my ($i, $u);
    my (@c, @d);
    for $i (@b) {
        if ($i =~ /-/) {
            @c = split(/-/, $i);
            for $u ($c[0] .. $c[1]) {
                push(@d, $u);
            }
            next;
        }
        push(@d, $i);
    }
    return @d;
}

# (3,6,7,8,9,10,16,23) 
my $i;
my @result = text_to_list("3,6-10,16,23");
for $i (@result) {
    print "$i\n";
}

$str =~ s/^\s+|\s+$//g