如何从Perl中的整数列表中获取范围？

发布时间：2020-12-15 23:28:16 所属栏目：大数据来源：网络整理

导读：我有一系列数字： @numbers = 1,2,3,6,8,9,11,12,13,14,15,20 我想以这种方式打印它： 1-3,8-9,11-15,20 有什么想法吗？当然我尝试使用最常见的“循环”,但仍然没有得到它. 解决方法这是一种可能的方式： @numbers = (1,20);@list = ();$first = $last = sh

我有一系列数字：

@numbers = 1,2,3,6,8,9,11,12,13,14,15,20

我想以这种方式打印它：

1-3,8-9,11-15,20

有什么想法吗？当然我尝试使用最常见的“循环”,但仍然没有得到它.

解决方法

这是一种可能的方式：

@numbers = (1,20);
@list = ();
$first = $last = shift @numbers;
foreach (@numbers,inf) {
  if ($_ > $last+1) {
    if ($first == $last) {
      push @list,$first;
    } elsif ($first+1 == $last) {
      push @list,$first,$last;
    } else {
      push @list,"$first-$last";
    }
    $first = $_;
  }
  $last = $_;
}

print join ',',@list;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!