已解决：求一列非连续的数字的连续的区间，想了一天，实在想不出，求大家帮帮忙

54red

我有一组数据，如下面的格式，第一列相同，第三列大于5，求第二列的连续区间，输出是一段一段的小区间，实在是想不出怎么写这个程序，求大家帮帮忙！
A        74851        1
A        74852        1
A        375904        6
A        375905        6
A        375906        7
A        375907        7
A        375908        7
A        375909        7
A        375910        7
A        375911        7
A        375912        7
B        29172057        19
B        29172058        19
B        29172059        19
B        29172060        19
B        29172061        19
B        29172062        19
B        29172063        19
B        29172064        19
B        29172065        19
B        29172066        19
B        29216088        1
B        29216089        1

结果是：
A        375904        375912
B        29172057        29172066

MMMIX

这种问题要出现多少次才算是个头？

54red

我承认我的问题太多了！可能在您看来确实又很简单。回复 2# MMMIX


   

MMMIX

回复 3# 54red


    先不说这个问题简单复杂，关键是它在 Perl 版已经被反复提问和回答了好多遍，你在这时间也不短了，干吗还要再问一次？

54red

大神，请你理解一下我这样的菜鸟，任务急，时间紧，被逼无奈啊，真没见到类似的问题，既然出现过，我去找找看，再次谢谢你之前对我的帮忙。回复 4# MMMIX


   

Okelani

output

1. A        375904        375906
   
2. A        375908        375912
   
3. B        29172057        29172063
   
4. B        29172065        29172066

复制代码

data structure @Z

1. [
   
2. [ A, [ 375904, 375906 ], [ 375908, 375912 ], [ 375917 ], [ 375919 ] ],
   
3. [ B, [ 29172057, 29172063 ], [ 29172065, 29172066 ] ]
   
4. ]

复制代码

code

1. 
   
2. use 5.010;
   
3. my ( $X, $Y, @Z ) = '';
   
4. 
   
5. while (<DATA>) {
   
6.     my ( $x, $y, $z ) = split;
   
7.     next if $z <= 5;
   
8. 
   
9.     $X ne $x
   
10.         ? push @Z, [ $X = $x, [$y] ]
    
11.         : $y - $Y == 1
    
12.             ? ( $Z[-1][-1][1] = $y )
    
13.             : push @{ $Z[-1] }, [$y];
    
14. 
    
15.     $Y = $y;
    
16. }
    
17. 
    
18. for (@Z) {
    
19.     my ( $x, @y ) = @$_;
    
20.     @$_ > 1 and say join "\t", $x, @$_ for @y;
    
21. }
    
22. 
    
23. __DATA__
    
24. A        74851        1
    
25. A        74852        1
    
26. A        375904        6
    
27. A        375905        6
    
28. A        375906        7
    
29. A        375908        7
    
30. A        375909        7
    
31. A        375910        7
    
32. A        375911        7
    
33. A        375912        7
    
34. A        375917        7
    
35. A        375919        7
    
36. B        29172057        19
    
37. B        29172058        19
    
38. B        29172059        19
    
39. B        29172060        19
    
40. B        29172061        19
    
41. B        29172062        19
    
42. B        29172063        19
    
43. B        29172065        19
    
44. B        29172066        19
    
45. B        29216088        1
    
46. B        29216089        1

复制代码

54red

谢谢你了，程序写的太好了， 回复 6# Okelani


   

xie3ks

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. my ($last_column_1, $last_column_2, $first_column_2)=('','','');
   
7. 
   
8. while(<DATA>)
   
9. {
   
10.     my @line=split(/\s+/);
    
11. 
    
12.     if($line[2]>5)
    
13.     {
    
14. 
    
15.        if($last_column_1 eq $line[0] && $line[1] == $last_column_2+1)
    
16.        {
    
17.            $last_column_2 = $line[1];
    
18.        }
    
19.        elsif($last_column_1 ne $line[0] or $line[1] != $last_column_2)
    
20.        {
    
21.            print $last_column_1, " "x5, $first_column_2, " "x5, $last_column_2, "\n";
    
22.            $last_column_1 = $line[0];
    
23.            $last_column_2 = $line[1];
    
24.            $first_column_2 = $line[1];
    
25.        }
    
26.     }
    
27. 
    
28. }
    
29. 
    
30. print $last_column_1, " "x5, $first_column_2, " "x5, $last_column_2, "\n";
    
31. 
    
32. __DATA__
    
33. A        74851        1
    
34. A        74852        1
    
35. A        375904        6
    
36. A        375905        6
    
37. A        375906        7
    
38. A        375908        7
    
39. A        375909        7
    
40. A        375910        7
    
41. A        375911        7
    
42. A        375912        7
    
43. A        375917        7
    
44. A        375919        7
    
45. B        29172057        19
    
46. B        29172058        19
    
47. B        29172059        19
    
48. B        29172060        19
    
49. B        29172061        19
    
50. B        29172062        19
    
51. B        29172063        19
    
52. B        29172065        19
    
53. B        29172066        19
    
54. B        29216088        1
    
55. B        29216089        1

复制代码

xie3ks

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. my ($last_column_1, $last_column_2, $first_column_2, $count)=('','','',0);
   
7. 
   
8. while(<DATA>)
   
9. {
   
10.     my @line=split(/\s+/);
    
11. 
    
12.     if($line[2]>5)
    
13.     {
    
14. 
    
15.        if($last_column_1 eq $line[0] && $line[1] == $last_column_2+1)
    
16.        {
    
17.            $last_column_2 = $line[1];
    
18.            $count++;
    
19.        }
    
20.        elsif($last_column_1 ne $line[0] or $line[1] != $last_column_2)
    
21.        {   
    
22.            print $last_column_1, " "x5, $first_column_2, " "x5, $last_column_2, "\n" if $count>0;
    
23.            $last_column_1 = $line[0];
    
24.            $last_column_2 = $line[1];
    
25.            $first_column_2 = $line[1];
    
26.            $count = 0
    
27.        }
    
28.     }
    
29. 
    
30. }
    
31. 
    
32. print $last_column_1, " "x5, $first_column_2, " "x5, $last_column_2, "\n";
    
33. 
    
34. __DATA__
    
35. A        74851        1
    
36. A        74852        1
    
37. A        375904        6
    
38. A        375905        6
    
39. A        375906        7
    
40. A        375908        7
    
41. A        375909        7
    
42. A        375910        7
    
43. A        375911        7
    
44. A        375912        7
    
45. A        375917        7
    
46. A        375919        7
    
47. B        29172057        19
    
48. B        29172058        19
    
49. B        29172059        19
    
50. B        29172060        19
    
51. B        29172061        19
    
52. B        29172062        19
    
53. B        29172063        19
    
54. B        29172065        19
    
55. B        29172066        19
    
56. B        29216088        1
    
57. B        29216089        1

复制代码

稍做修改

54red

谢谢啦！程序很赞！回复 9# xie3ks