[问题求助] [已解决]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消失了不知道为什么？谁帮忙解释下！

@echo off
setlocal EnableDelayedExpansion
set n=0
for /f "delims=" %%a in (a.txt) do (
  set /a n+=1
  if !n! == 3 (
     echo %%a >>b.txt
     for /f "delims=" %%b in (b.txt) do (echo %%b>>c.txt)
) else (echo %%a>>c.txt)
)
  COPY

Perl

回复 2# jellyhk


你这个不是Perl吧？

jellyhk

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

sxw

随手写了下：

use strict;
use warnings;
 
open FH,"<","a.txt" or die;
open B,"<","b.txt" or die;
my @b=<B>;
open OUT,">","c.txt" or die;
 
while (<FH>) {
  print OUT @b if $_=~/^bathome$/;
  print OUT $_;
}COPY

Perl

回复 5# sxw


成功了，多谢。

Perl

回复 4# jellyhk


乱起哄