批处理之家 - Powered by Discuz! Board

标题: [问题求助] [已解决]Perl怎样在文件中指定行的上面插入另一个文件的内容？ [打印本页]

作者: Perl 时间: 2011-12-12 20:39 标题: [已解决]Perl怎样在文件中指定行的上面插入另一个文件的内容？

本帖最后由 Perl 于 2011-12-23 23:29 编辑

a.txt的内容：
http
www
bathome
net

b.txt的内容：
xxx
yyy
zzz

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

作者: jellyhk 时间: 2011-12-13 11:33

我的思路太烂了！哎就当再熟悉下代码好了！
因为开始不要第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)
)
  
复制代码

作者: Perl 时间: 2011-12-13 13:32

回复 2# jellyhk

你这个不是Perl吧？

作者: jellyhk 时间: 2011-12-13 18:46

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

作者: sxw 时间: 2011-12-13 21:38

随手写了下：

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 $_;
}
复制代码

作者: Perl 时间: 2011-12-23 23:28

回复 5# sxw

成功了，多谢。

作者: Perl 时间: 2011-12-23 23:29

回复 4# jellyhk

乱起哄

欢迎光临批处理之家 (http://www.bathome.net/)