sed处理多行中首尾拼接的行

18800375280

回复 6# liion631818
是我自己的文本的格式问题导致的，其实你们的答案都是OK的，流弊， 学习了！

18800375280

回复 7# moperyblue
牛，学习了！

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aData;
   
6. while (<>){
   
7.     if (/omega/){
   
8.         print;
   
9.         @aData = ();
   
10.         next;
    
11.     }
    
12.     s/\s+\z//;
    
13.     {
    
14.         local $" = "";
    
15.         next if (push (@aData, $_) and "@aData" eq $_);
    
16.         if ("@aData" =~ /omega/){
    
17.             my @aTmp = ();
    
18.             unshift (@aTmp, pop @aData) until ("@aTmp" =~ /omega/);
    
19.             print "@aTmp\n";
    
20.             splice (@aData, 0, @aData, pop @aTmp);
    
21.         }
    
22.     }
    
23. }
    

复制代码

omega ,omega
cding .cd dzzz erg omega bc dde ome
a bc dde omega zerg ome
bbb cc dde omega zz
omega zzz ome
cc omega
omega,cc

blackold

回复 1# 18800375280

1. sed ':n;$!N;h;s/.*\(\<\w\+\) *\n *\(\w\+\>\).*/\1\2/;/\<omega\>/!{g;/\<omega\>.*\n/P;D};g;s/ *\n *//;bn;' urfile

复制代码

如果有这样的行:

omega ,omeg
a foobar

输出什么?

blackold

回复 2# jason680


    语义有问题吧，

foobar omeg
omega ,omeg
a foobar

输出：

omega ,omeg
foobar omega foobar

blackold

回复 1# 18800375280


    line2和line3"匹配“， 同时line3和line4匹配，这时应该把它们连起来——line2line3line4。你要求不合理吧。

18800375280

回复 16# blackold
对，需求有问题，黑哥请忽略！