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

Question

我想将表格1,2,25-27,4,8,14,7-10的sting转换为实际值列表：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 

Answer 2

另一种方式来快速做，这是通过使用EVAL的字符串版本。但是你必须记住，使用eval有一些安全隐含的意义，所以你最好在将任何字符串传递给eval之前对其进行清理。

use strict; 
use warnings; 

my $string = "1,2,25-27,4,8,14,7-10"; 

$string =~ s/-/../g; 

my @list = sort {$a <=> $b} keys { map {$_, 1} eval $string }; 

print "@list\n"; 

#output 
1 2 4 7 8 9 10 14 25 26 27