[已解决]Perl怎样在文件中指定行的上面插入另一个文件的内容？

Perl

a.txt的内容：
http
www
bathome
net

b.txt的内容：
xxx
yyy
zzz

希望得到c.txt如下：
http
www
xxx
yyy
zzz
bathome
net

jellyhk

我的思路太烂了！哎就当再熟悉下代码好了！
因为开始不要第7行代码echo %%a >>b.txt就会把a.txt的第3行的bathome消失了不知道为什么？谁帮忙解释下！

1. @echo off
   
2. setlocal EnableDelayedExpansion
   
3. set n=0
   
4. for /f "delims=" %%a in (a.txt) do (
   
5.   set /a n+=1
   
6.   if !n! == 3 (
   
7.      echo %%a >>b.txt
   
8.      for /f "delims=" %%b in (b.txt) do (echo %%b>>c.txt)
   
9. ) else (echo %%a>>c.txt)
   
10. )
    
11.   

复制代码

Perl

回复 2# jellyhk


你这个不是Perl吧？

jellyhk

perl是什么？我还以为是你名字呢！

sxw

随手写了下：

1. 
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. open FH,"<","a.txt" or die;
   
6. open B,"<","b.txt" or die;
   
7. my @b=<B>;
   
8. open OUT,">","c.txt" or die;
   
9. 
   
10. while (<FH>) {
    
11.   print OUT @b if $_=~/^bathome$/;
    
12.   print OUT $_;
    
13. }
    
14. 
    

复制代码

Perl

回复 5# sxw


成功了，多谢。

Perl

回复 4# jellyhk


乱起哄