重复行只保留第一行

sunzhiguolu

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

   

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

复制代码

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
    

复制代码