如何判斷數(shù)字連續(xù)。。。

mcshell

轉(zhuǎn)自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

====
就是按第一列分組，第二列如果是連續(xù)的，就用1-4這樣，不是連續(xù)的就用逗號分割，2,5,6，這樣。


自己試著寫了，可以判斷數(shù)字連續(xù)，但是想不到如何取首尾兩個數(shù)字。。。
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-
    

復(fù)制代碼

求指導(dǎo)一下。。。。
也想看看大家的方法。

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

第一個數(shù)字可以回溯出錯啊。改下

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

mcshell

回復(fù) 3# zhlong8


    版主，能不能講下這樣寫的思路。。

zhlong8

回復(fù) 4# mcshell


    兩個相臨的數(shù)字如果滿足 $a, $a+1 那它們之間的逗號可以替換為 ‘-’ ，如果左邊那個數(shù)字前面有個 ‘-’ 那左邊那個數(shù)字就可以省掉。比如（2-3,4) 3 前面有 '-' 3 和逗號刪除即為 2-4。然后從左到右發(fā)現(xiàn)這種模式即替換，那么所有相鄰的數(shù)字都會收斂起來，直到不存在這種模式。


(-)?(?<!\d)(\d+),(\d++) 捕獲兩個相臨的完整的數(shù)字，如果第一個數(shù)字前面有 '-' 也捕獲它。(?<!\d) 保證第一個數(shù)字不會被截斷， \d++ 的++保證第二個數(shù)字不會被截斷。

(?(?{$3 != $2+1})(*F)) 是個邏輯判斷，如果 第二個數(shù)字 != 第一個數(shù)字 + 1 ，那判斷為匹配失敗，(*F) 表示匹配時永遠(yuǎn)失敗。如果沒有這個語句，那 3,5 這樣的不能合并的會導(dǎo)致 while 死循環(huán)。

替換部分就是處理左邊那個數(shù)字前面是否有 '-' 的。

mcshell

回復(fù) 5# zhlong8


    學(xué)習(xí)了。。