我有一系列数字：
@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;