重复行只保留第一行

_SHELL_

werwrtert
  ERROR*
ERROR*
ddffadfasf
sdfsfsfsfs
ERROR*
  ERROR*
ERROR*
end
ERROR*
dddd
ERROR

药这样的结果, 空白原样保留
=================
*werwrtert
  ERROR*
ddffadfasf
sdfsfsfsfs
ERROR*
end
ERROR*
dddd
ERROR*

sunzhiguolu

回复 1# _SHELL_
有空白的在进行比较时, 是相等还是不等?

   

_SHELL_

比较时忽略空白 ，结果保留空白
回复 2# sunzhiguolu


   

sunzhiguolu

回复 3# _SHELL_
你试下,

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $sLast = "";
   
7. while (<DATA>){
   
8.     my $sBareLine = s/\A\s+|\s+\z//gr;
   
9.     if ($sLast ne $sBareLine){
   
10.         print;
    
11.     }
    
12.     $sLast = $sBareLine;
    
13. }
    
14. 
    
15. __DATA__
    
16. werwrtert
    
17.   ERROR*
    
18. ERROR*
    
19. ddffadfasf
    
20. sdfsfsfsfs
    
21. ERROR*
    
22.   ERROR*
    
23. ERROR*
    
24. end
    
25. ERROR*
    
26. dddd
    
27. ERROR
    

复制代码

werwrtert
  ERROR*
ddffadfasf
sdfsfsfsfs
ERROR*
end
ERROR*
dddd
ERROR

sunzhiguolu

1. perl -nle '$b=s/\A\s+|\s+\z//gr;if($l ne $b){print}$l=$b' f

复制代码

_SHELL_

不好意思 弄错了 我是说 只想要后面的重复的行 如何破???
   谢谢啊
回复 5# sunzhiguolu


   

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %hDump;
   
6. while (<DATA>){
   
7.     my $sBareLine = s/\A\s+|\s+\z//gr;
   
8.     if (!%hDump){
   
9.         $hDump{$sBareLine} = 1;
   
10.         next;
    
11.     }
    
12.     if ($hDump{$sBareLine}){
    
13.         print;
    
14.         next;
    
15.     }
    
16.     %hDump = ();
    
17.     $hDump{$sBareLine} = 1;
    
18. }
    
19. 
    
20. __DATA__
    
21. werwrtert
    
22.   ERROR*
    
23. ERROR*
    
24. ddffadfasf
    
25. sdfsfsfsfs
    
26. ERROR*
    
27.   ERROR*
    
28. ERROR*
    
29. end
    
30. ERROR*
    
31. dddd
    
32. ERROR
    

复制代码

RE_HASH

为啥ERROR*都留着？不算重复?

_SHELL_

回复 8# RE_HASH
就要 7喽的那样的结果，有简化一点的吗 好麻烦欧

   

RE_HASH

*werwrtert
  ERROR*
ddffadfasf
sdfsfsfsfs
ERROR*
end
ERROR*
dddd
ERROR*

不懂你的逻辑，你要去重复的行，又要在结果里留重复的行，我彻底晕了

正常人思维：
去重复：cat vv|perl -ne 'print unless ($c->{$_}++)';
留重复：cat vv|perl -ne 'print if ($c->{$_}++)';