如何判断数字连续。。。

mcshell

转自SHELL版块。。
cat file.txt
abc 1
abc 2
abc 3
cde 1
cde 2
fff 1
fff 2
fff 3
fff 5
fff 7
fff 9
fff 10
fff 11
fff 12
fff 13
想要处理成
abc:1-3
cde:1-2
fff:1-3,5,7,9-13

====
就是按第一列分组，第二列如果是连续的，就用1-4这样，不是连续的就用逗号分割，2,5,6，这样。


自己试着写了，可以判断数字连续，但是想不到如何取首尾两个数字。。。
code：

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. my %hash;
   
6. my @line;
   
7. while(<DATA>){
   
8.   @line=split;
   
9.   push @{$hash{$line[0]}},$line[1];
   
10. 
    
11. }
    
12. map{print "$_:";
    
13.         my $letter = $_;
    
14.        
    
15.          my $num = @{$hash{$letter}}        ;
    
16.         for(my $i=0;$i<$num;$i++){
    
17.            if(
    
18.                    (($hash{$letter}[$i+1]||0) - $hash{$letter}[$i] == 1)
    
19.                    ||
    
20.                    ($hash{$letter}[$i+1]||0)- $hash{$letter}[$i] == -($hash{$letter}[$i])
    
21.                    || ($hash{$letter}[$i]  == $hash{$letter}[$i-1] + 1)
    
22.                    ){
    
23.                         print  $hash{$letter}[$i]."-";
    
24.            }else{
    
25.                    print   ",$hash{$letter}[$i]";
    
26.            }
    
27.         }
    
28.         print "\n"}keys %hash;
    
29. __DATA__
    
30. abc 1
    
31. abc 2
    
32. abc 3
    
33. cde 1
    
34. cde 2
    
35. fff 1
    
36. fff 2
    
37. fff 3
    
38. fff 5
    
39. fff 7
    
40. fff 9
    
41. fff 10
    
42. fff 11
    
43. fff 12
    
44. fff 13
    
45. 输出：
    
46. F:\perl\cu>info.pl
    
47. cde:1-2-
    
48. abc:1-2-3-
    
49. fff:1-2-3-,5,79-10-11-12-13-
    

复制代码

求指导一下。。。。
也想看看大家的方法。

zhlong8

很久之前就写过这个啊。

$s = "1,2,3,5,7,9,10,11,12,13";

1 while $s =~ s/(-)?(\d+),(\d++)(?(?{$3 != $2+1})(*F))/ defined $1 ?  "-$3" : "$2-$3" /e;

say $s;

zhlong8

第一个数字可以回溯出错啊。改下

1 while $s =~ s/(-)?(?<!\d)(\d+),(\d++)(?(?{$3 != $2+1})(*F))/ defined $1 ?  "-$3" : "$2-$3" /e;

mcshell

回复 3# zhlong8


    版主，能不能讲下这样写的思路。。

zhlong8

回复 4# mcshell


    两个相临的数字如果满足 $a, $a+1 那它们之间的逗号可以替换为 ‘-’ ，如果左边那个数字前面有个 ‘-’ 那左边那个数字就可以省掉。比如（2-3,4) 3 前面有 '-' 3 和逗号删除即为 2-4。然后从左到右发现这种模式即替换，那么所有相邻的数字都会收敛起来，直到不存在这种模式。


(-)?(?<!\d)(\d+),(\d++) 捕获两个相临的完整的数字，如果第一个数字前面有 '-' 也捕获它。(?<!\d) 保证第一个数字不会被截断， \d++ 的++保证第二个数字不会被截断。

(?(?{$3 != $2+1})(*F)) 是个逻辑判断，如果 第二个数字 != 第一个数字 + 1 ，那判断为匹配失败，(*F) 表示匹配时永远失败。如果没有这个语句，那 3,5 这样的不能合并的会导致 while 死循环。

替换部分就是处理左边那个数字前面是否有 '-' 的。

mcshell

回复 5# zhlong8


    学习了。。