把一个文件插入另一个文件指定字符串后面的脚本（不是指定行哦）

ytsmtipe

现在两个文件，内容如下：

1. dsp@dsp:~/source_code/tmp_dir$ cat t
   
2. <A>
   
3.      <B></B>
   
4.      <C></C>
   
5. </A>
   
6. dsp@dsp:~/source_code/tmp_dir$ cat a
   
7. 123
   
8. 456
   
9. dsp@dsp:~/source_code/tmp_dir$

复制代码

想实现一个脚本把"a"文件的内容插入到"t"文件的"<B>"后面，实现的效果要求是这样的：

1. dsp@dsp:~/source_code/tmp_dir$ cat t
   
2. <A>
   
3.      <B>123
   
4. 456</B>
   
5.      <C></C>
   
6. </A>

复制代码

请问哪位大神有思路？谢谢！
我之前想到的一个命令:

1. sed '/<B>/r a' t

复制代码

这个只能实现成如下这样的效果：

1. dsp@dsp:~/source_code/tmp_dir$ sed '/<B>/r a' t
   
2. <A>
   
3.      <B></B>
   
4. 123
   
5. 456
   
6.      <C></C>
   
7. </A>

复制代码

这个显然不对。

jason680

回复 1# ytsmtipe

$ awk -va="`cat a`" '{sub("<B></B>","<B>"a"</B>")}1' t
<A>
     <B>123
456</B>
     <C></C>
</A>

   

ytsmtipe

Perfect!
另外，有谁知道这个能通过sed来实现吗？谢谢！

ytsmtipe

@jason680,
  如果t的内容是这样的要如何实现？谢谢！

1. dsp@dsp:~/source_code/tmp_dir$ cat t
   
2. <A>
   
3.      <B>
   
4. </B>
   
5.      <C></C>
   
6. </A>

复制代码

jason680

sub("<B></B>","<B>"a"</B>")

ytsmtipe

佩服之至！

moperyblue

1. sed -r '1{x;s/.*/cat a/e;x};/<B>/{:a;/<\/B>/!{N;ba};G;s/(.*<B>).*(<[^\n]*)\n(.*)/\1\3\2/}' t

复制代码

sunzhiguolu

1. perl -nle 'if(m~(<B>)(</B>)~){print $1,`cat b`,$2;next}print' a

复制代码

<A>
<B>123
456
</B>
     <C></C>
</A>

ytsmtipe

谢谢各位！
@moperyblue，或者哪位能够解释一下那个sed语句吗？特别是那个"1{”中的数字"1"是什么意思啊？谢谢！

moperyblue

回复 9# ytsmtipe


    在第一行的时候将cat a (即:123\n456)内容 放到hold space,以便后续符合条件的时候调用它



如果能接受这样的结果格式
<A>
     <B>
123
456
</B>
     <C></C>
</A>

也可以用这种方式

1. sed '/<B>.*<\/B>/s/>/&\n/' t|sed '/<B>/r a'

复制代码