数字比较大小并排序问题

转载请注明出处：http://bbs.chinaunix.net/thread-4094316-1-1.html

2139765        2139947

2139943        2140064
2140059        2140216
2140297        2140400
2140393        2140578
2140634        2140821
2140828        2140986
2140967        2141146
2141434        2141616
2141696        2141872
2141864        2141985
2142002        2142175
2142437        2142603
2142912        2143059
2143046        2143220
2143430        2143587
2143587        2143772

现在有这样一组数，可以看到前2行
2139765        2139947
2139943        2140064
中，第一行的第二个数字要比第二行第一个数字要大，即这2个数字区域有重合部分，则输出时要合并输出 2139765 2140064
当然不局限在2行，如果连续三行都有重叠区域，就要一起输出头尾。
反之，如果第一行和第二行没有重叠区域。就原样输出。

解答1：

1. use strict;
   
2. use warnings;
   
3. use List::Util qw(max min);
   
4. 
   
5. my $ref = {};
   
6. while (<DATA>) {
   
7.     chomp;
   
8.         my @arr = split/\s+/;
   
9.         push @{$ref->{$.}},$arr[0],$arr[1];
   
10. }
    
11. my $lines = scalar(keys %{$ref});
    
12. my %hash = ();
    
13. my $group = 1;
    
14. push @{$hash{$group}},@{$ref->{1}};
    
15. foreach my $linenum (2..$lines) {
    
16.     if ($ref->{$linenum}->[0] <= $ref->{$linenum-1}->[1]) {
    
17.             push @{$hash{$group}},@{$ref->{$linenum}};
    
18.         }
    
19.         else {
    
20.             $group++;
    
21.                 push @{$hash{$group}},@{$ref->{$linenum}};
    
22.         }
    
23. }
    
24. foreach my $key (sort {$a<=>$b} keys %hash) {
    
25.     my $start = min(@{$hash{$key}});
    
26.         my $end = max(@{$hash{$key}});
    
27.         print "$start\t$end\n";
    
28. }
    
29. 
    
30. __DATA__
    
31. 2139765        2139947
    
32. 2139943        2140064
    
33. 2140059        2140216
    
34. 2140297        2140400
    
35. 2140393        2140578
    
36. 2140634        2140821
    
37. 2140828        2140986
    
38. 2140967        2141146
    
39. 2141434        2141616
    
40. 2141696        2141872
    
41. 2141864        2141985
    
42. 2142002        2142175
    
43. 2142437        2142603
    
44. 2142912        2143059
    
45. 2143046        2143220
    
46. 2143430        2143587
    
47. 2143587        2143772

解答2：

if排序的

1. #!/usr/bin/perl
   
2. use 5.018;
   
3. my @a = map [split], <DATA>;
   
4. my @b = shift @a;
   
5. for (@a) {
   
6.     $_->[0] <= $b[-1][1]
   
7.       ? $_->[1] > $b[-1][1] && ( $b[-1][1] = $_->[1] )
   
8.       : push @b, $_;
   
9. }
   
10. say join "\t", @$_ for @b;
    
11. __DATA__
    
12. 2139765        2139947
    
13. 2139943        2140064
    
14. 2140059        2140216
    
15. 2140297        2140400
    
16. 2140393        2140578
    
17. 2140634        2140821
    
18. 2140828        2140986
    
19. 2140967        2141146
    
20. 2141434        2141616
    
21. 2141696        2141872
    
22. 2141864        2141985
    
23. 2142002        2142175
    
24. 2142437        2142603
    
25. 2142912        2143059
    
26. 2143046        2143220
    
27. 2143430        2143587
    
28. 2143587        2143772

解答3：

if不排序的

1. #!/usr/bin/perl
   
2. use 5.018;
   
3. my @a = sort { $a->[0] <=> $b->[0] } map [split], <DATA>;
   
4. my @b = shift @a;
   
5. for (@a) {
   
6.     $_->[0] <= $b[-1][1]
   
7.       ? $_->[1] > $b[-1][1] && ( $b[-1][1] = $_->[1] )
   
8.       : push @b, $_;
   
9. }
   
10. say "@$_" for @b;
    
11. 
    
12. 
    
13. __DATA__
    
14. 2139765        2139947
    
15. 2139943        2140064
    
16. 2140059        2140216
    
17. 2140297        2140400
    
18. 2140393        2140578
    
19. 2140634        2140821
    
20. 2140828        2140986
    
21. 2140967        2141146
    
22. 2141434        2141616
    
23. 2141696        2141872
    
24. 2141864        2141985
    
25. 2142002        2142175
    
26. 2142437        2142603
    
27. 2142912        2143059
    
28. 2143046        2143220
    
29. 2143430        2143587
    
30. 2143587        2143772