Question

给定字符串，例如1,4..7,10,11，是否有一种巧妙的方法可以将其解析为(1,4,5,6,7,10,11)列表？该字符串作为命令行参数给出。我的计划是确保字符串符合/^[0-9.,]+$/然后符合eval，但是有没有eval的更简洁的方法吗？

Answer 1

查看CPAN模块Text::NumericList。

将字符串转换为数组：

use Text::NumericList;
my $list = Text::NumericList->new;

$list->set_string('1-3,5-7');
my @array = $list->get_array;     # Returns (1,2,3,5,6,7)

或

$list->set_string('1..3,5...7');
@array = $list->get_array;        # Returns (1,2,3,5,6,7)

正如@dgw在评论中提到的，其他可能的模块是：

Number::Range
Set::Intspan

Answer 2

当然，最简单和最丑陋的解决方案是使用split和eval，如下所示：

$str = "1,4..7,10,11";

my @out;
for (split ",", $str) {
    if (/\d+\.\.\d+/) {
        eval('push @out, $_ for '.$_);
    }
    else {
        push @out, $_;
    }
}
print "(", join(',', sort {$a <=> $b} @out), ")";

您可以通过eval也可写/([0-9]+)[.][.]([0-9]+)/来提取范围的两个成员来避免/(\d+)\.{2}(\d+)/：

$str = "1,4..7,10,11";

my @out;
for (split ",", $str) {
    if (/(\d+)\.\.(\d+)/) {
        push @out, $_ for $1 .. $2;
    }
    else {
        push @out, $_;
    }
}
print "(", join(',', sort {$a <=> $b} @out), ")";

由此我们可以简化代码：

$str = "1,4..7,10,11";

my @out;
for (split ",", $str) {
    push @out, $_ for (/(\d+)\.\.(\d+)/)? $1 .. $2: $_; 
}
print "(", join(',', sort {$a <=> $b} @out), ")";

最后但并非最不重要的，如果您使用bash并且您的输入字符串作为参数传递给您的程序。您可以像这样使用大括号扩展：

$ echo 1 2 {3..6} 10 11 | sort
1 2 3 4 5 6 10 11

解析Perl范围字符串，例如“1,4..7,10,11”

2 个答案: