新手求教。如果相邻几行都含有某特定字符，如何只保留满足条件的这几行中的最后一行？

bidrslxl

比如原文本如下：
ta
abc sss 001
abc sss 002
abc sss 003
tb
sss tt abc
sss abc tt

希望处理后的文本为：
ta
abc sss 003
tb
sss abc tt

即如果相邻两行或多行都含有abc 则只保留其中最后一行。

sunzhiguolu

1. perl -anle '{if(!$k){($k,$v)=($F[0],$_);next}if($k ne $F[0]){print $v;($k,$v)=($F[0],$_);next}$v=$_}END{print $v}' f

复制代码

moperyblue

1. sed 'N;/^t\|\nt/P;D' file

复制代码

sunzhiguolu

1. perl -0pe 's/^(?>(\w+).*\n)(\1.*\n)+/$2/gm' f

复制代码

moperyblue

1. echo 'ta
   
2. abc sss 001
   
3. abc sss 002
   
4. abc sss 003
   
5. tb
   
6. sss tt abc
   
7. sss abc tt'|sed '/^t[a-z]$/i\\'|awk '{print $1 FS $NF}' RS= FS=\\n

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $v = "";
   
6. while (<DATA>){
   
7.     if (!/abc/){
   
8.         if ($v ne ""){
   
9.             print $v;
   
10.             $v = "";
    
11.         }
    
12.         print;
    
13.         next;
    
14.     }
    
15.     $v = $_;
    
16. }
    
17. print $v if ($v ne "");
    
18. 
    
19. __DATA__
    
20. ta
    
21. abc sss 001
    
22. abc sss 002
    
23. abc sss 003
    
24. tb
    
25. sss tt abc
    
26. sss abc tt
    

复制代码

moperyblue

1. echo 'ta
   
2. abc sss 001
   
3. abc sss 002
   
4. abc sss 003
   
5. tb
   
6. sss tt abc
   
7. sss abc tt'|awk 'NF<2{print s?s RS $0:$0}{s=$0}END{print s}'

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($pos, @aData) = (0, ());
   
6. while (<DATA>){
   
7.     if (!/abc/){
   
8.         push (@aData, $_);
   
9.         $pos = $#aData + 1;
   
10.         next;
    
11.     }
    
12.     push (@{$aData[$pos]}, $_);
    
13. }
    
14. 
    
15. for (@aData){
    
16.     $_ = pop (@$_) if (ref $_ eq ref []);
    
17.     print;
    
18. }
    
19. 
    
20. __DATA__
    
21. ta
    
22. abc sss 001
    
23. abc sss 002
    
24. abc sss 003
    
25. tb
    
26. sss tt abc
    
27. sss abc tt

复制代码

moperyblue

1. echo 'ta
   
2. abc sss 001
   
3. abc sss 002
   
4. abc sss 003
   
5. tb
   
6. sss tt abc
   
7. sss abc tt'|sed '$q;/^..$/{x;/./p;x;p};h;d'

复制代码

sunzhiguolu

1. perl -0ne 'print $1 while(/(?|(.*?abc.*\n)+|(.*\n))/g)' f

复制代码