这里该如何处理啊

sunzhiguolu

看了篇帖子, 内容如下:

按照第二列范围压缩显示

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

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

我在处理 333 7 这里, 由于未按第二列的数值排序 我不知道该如何处理, 请大家指点, 谢谢...
代码如下:

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my (%hStat);
   
7. while (<>){
   
8.     my ($sID, $sVal) = split;
   
9.     if (!exists $hStat{$sID}){
   
10.         push (@{$hStat{$sID}}, "$sID $sVal-$sVal\n");
    
11.         next;
    
12.     }
    
13.     my $raData = $hStat{$sID};
    
14.     my ($sFirst, $sLast) = (split /[- ]/, $raData->[-1])[1,2];
    
15.     if ($sLast + 1 == $sVal){
    
16.         $raData->[-1] = "$sID $sFirst-$sVal\n";
    
17.         next;
    
18.     }
    
19.     push (@$raData, "$sID $sVal-$sVal\n");
    
20. }
    
21. print @{$hStat{$_}} for sort keys %hStat;
    

复制代码

输出结果:

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

jason680

回复 1# sunzhiguolu


111 1   , $h{111}->{1}
111 2   , $h{111}->{2}   ,
333 7   , $h{333}->{7}
222 6   , $h{222}->{6}
...
333 6   , $h{333}->{6}

for my $rhKey( sort keys %h){
  for( sort keys %{$rhKey}){
    ...
  }
}

sunzhiguolu

回复 2# jason680
大神我比较笨, 还是没能看懂, 谢谢您指点...

   

sunzhiguolu

占个位置,   

sunzhiguolu

回复 2# jason680
大神, 您的代码的里面的那个 foreach 循环啥都没有啊.

   

Okelani

由于未按第二列的数值排序 我不知道该如何处理,

如何处理

按第二列的数值排序

sunzhiguolu

回复 6# Okelani
大神, 按照数值排序的时候. 遇到断开的数字我处理起来就手忙脚乱.
有啥好的方法没有, 就是处理已经排序的数值, 有断开的那种,
如: 1,2,3,5,7 这样的, 得到像 1-3,5-5,7-7 这样的结果. 还请您指点...

   

Okelani

这样的

1. my %que;
   
2. for (<DATA>) {
   
3.     my ( $c1, $c2 ) = split;
   
4.     push @{ $que{$c1} }, $c2;
   
5. }
   
6. for my $k ( sort keys %que ) {
   
7.     my @v = sort { $a <=> $b } @{ $que{$k} };
   
8.     my @tmp = [ ( shift @v ) x 2 ];
   
9.     $_ == $tmp[-1][-1] + 1 ? $tmp[-1][1]++ : push @tmp, [ $_, $_ ] for @v;
   
10.     print join( "\t", $k, join( '-', @$_ ) ), "\n" for @tmp;
    
11. }
    
12. 
    
13. __DATA__
    
14. 111 1
    
15. 111 2
    
16. 333 7
    
17. 222 6
    
18. 222 9
    
19. 111 3
    
20. 222 10
    
21. 333 3
    
22. 333 4
    
23. 333 5
    
24. 333 6
    

复制代码

Okelani

1. 111        1-3
   
2. 222        6-6
   
3. 222        9-10
   
4. 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.     push (@{$hStat{$sID}}, $sVal);
   
9.     @{$hStat{$sID}} = sort {$a <=> $b} @{$hStat{$sID}} if (@{$hStat{$sID}} > 1);
   
10. }
    
11. 
    
12. foreach my $sID (sort {$a <=> $b} keys %hStat){
    
13.     my @aData = [(shift @{$hStat{$sID}}) x 2];
    
14.     foreach (@{$hStat{$sID}}){
    
15.         $_ == $aData[-1][-1] + 1 ? $aData[-1][1]++ : push (@aData, [$_, $_]);
    
16.     }
    
17.     print "$sID\t" . join ("-", @{$_}), "\n" for @aData;
    
18. }
    
19. __DATA__
    
20. 111 1
    
21. 111 2
    
22. 333 7
    
23. 222 6
    
24. 222 9
    
25. 111 3
    
26. 222 10
    
27. 333 3
    
28. 333 4
    
29. 333 5
    

复制代码