这里该如何处理啊

我不哭想

这个就不好说了。

jason680

回复 10# sunzhiguolu

use strict;
use warnings;


my %hStat;
while(<DATA>){
  chomp;
  my($sKey, $sVal) = split;
  $hStat{$sKey}->{$sVal} = 1;
}
foreach my $sKey(sort{$a<=>$b} keys %hStat){
  my($sCnt, $sLast, $sNL) =(0, "", "");
  foreach(sort{$a<=>$b} keys %{$hStat{$sKey}}){
    print "$sLast$sNL$sKey $_-" if($sCnt++ == 0 || ($_ - $sLast !=1));
    $sLast = $_;
    $sNL   = "\n";
  }
  print "$sLast\n";
}

__DATA__
111 1
111 2
333 7
222 6
222 9
111 3
222 10
333 3
333 4
333 5

   

RE_HASH

$>  sort -k1,1 -k2,2n file |perl -n0pe 'print "Sorted\n$_"; s/((\d+)\s+(\d+))\n(?=\2\s+(\d+))/$4-$3 == 1? "$1-" : "$1-$3\n"/ge; print "\nMerged\n$_\nResult\n"; s/^(\d+\s+\d+)-.+?\s+(\d+)$/\1-\2/mg;'
Sorted

111 1
111 2
111 3
222 6
222 9
222 10
333 3
333 4
333 5
333 6
333 7

Merged

111 1-111 2-111 3
222 6-6
222 9-222 10
333 3-333 4-333 5-333 6-333 7

Result

111 1-3
222 6-6
222 9-10
333 3-7

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %hStat;
   
6. while (<DATA>){
   
7.     my ($sID, $sVal) = split;
   
8.     $hStat{$sID}{$sVal} = 1;
   
9. }
   
10. 
    
11. $, = "\t";
    
12. foreach my $sKey (sort {$a <=> $b} keys %hStat){
    
13.     my @aData;
    
14.     foreach (sort {$a <=> $b} keys %{$hStat{$sKey}}){
    
15.         if (!@aData){
    
16.             @aData = [($_) x 2];
    
17.             next;
    
18.         }
    
19.         if ($aData[-1][-1] + 1 == $_){
    
20.             $aData[-1][-1]++;
    
21.             next;
    
22.         }
    
23.         push (@aData, [($_) x 2]);
    
24.     }
    
25.     print $sKey, join ("-", @$_), "\n" for @aData;
    
26. }
    
27. 
    
28. __DATA__
    
29. 111 1
    
30. 111 5
    
31. 333 7
    
32. 222 6
    
33. 222 9
    
34. 111 3
    
35. 222 10
    
36. 333 3
    
37. 333 4
    
38. 333 5
    
39. 333 6
    

复制代码

sunzhiguolu

回复 13# RE_HASH
大神, 对于特殊情况该咋整啊.

111 1
111 5
333 7
222 6
222 9
111 3
222 10
333 3
333 4
333 5
333 6

   

j_cle

回复 8# Okelani


    最后的几句话，有点晕

RE_HASH

回复 15# sunzhiguolu


    没看懂你的意思

sunzhiguolu

回复 17# RE_HASH
sort -k1,1n -k2,2n dat|perl -n0pe 'print "Sorted\n$_"; s/((\d+)\s+(\d+))\n(?=\2\s+(\d+))/$4-$3 == 1? "$1-" : "$1-$3\n"/ge; print "\nMerged\n$_\nResult\n"; s/^(\d+\s+\d+)-.+?\s+(\d+)$/\1-\2/mg;'
Sorted
111 1
111 3
111 5
222 6
222 9
222 10
333 3
333 4
333 5
333 6
333 7

Merged
111 1-1
111 3-3
111 5
222 6-6
222 9-222 10
333 3-333 4-333 5-333 6-333 7

Result
111 1-1
111 3-3
111 5
222 6-6
222 9-10
333 3-7


   

sunzhiguolu

cat dat                                 

111 1
111 5
333 7
222 6
222 9
111 3
222 10
333 3
333 4
333 5
333 6

RE_HASH

$> sort -k1,1n -k2,2n aa|perl -n0pe 'print "Sorted\n$_"; s/((\d+)\s+(\d+))\n(?=\2\s+(\d+))/$4-$3 == 1? "$1-" : "$1-$3\n"/ge; print "\nMerged\n$_\nResult\n"; s/^(\d+\s+\d+)-.+?\s+(\d+)$/\1-\2/mg; print "$_\nSpecial:\n";s/(\s)(\d+)(?=\n|$)/\1\2-\2/g;'
Sorted

111 1
111 3
111 5
222 6
222 9
222 10
333 3
333 4
333 5
333 6
333 7

Merged

111 1-1
111 3-3
111 5
222 6-6
222 9-222 10
333 3-333 4-333 5-333 6-333 7

Result

111 1-1
111 3-3
111 5
222 6-6
222 9-10
333 3-7

Special:

111 1-1
111 3-3
111 5-5
222 6-6
222 9-10
333 3-7