perl - 将数值/范围的字符串转换为实际值

Question

我想将表单的sting转换为1,2,25-27,4,8,14,7-10实际值的列表:1,2,4,7,8,9,10,14,25,26,27.

我搜索过,发现没有做这种扩展的事情.任何人都知道如何轻松地做到这一点？

Answer 1

my $s = "1,2,25-27,4,8,14,7-10";
my %seen;
my @arr =
  sort { $a <=> $b }
  grep { !$seen{$_}++ }
  map { 
    my @r = split /-/; 
    @r>1 ? ($r[0] .. $r[1]) : @r;
  }
  split /,/, $s;

print "@arr\n";

产量

1 2 4 7 8 9 10 14 25 26 27