[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] [已解决]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

回复 4# jellyhk


乱起哄

TOP

回复 5# sxw


成功了,多谢。

TOP

随手写了下:
  1. use strict;
  2. use warnings;
  3. open FH,"<","a.txt" or die;
  4. open B,"<","b.txt" or die;
  5. my @b=<B>;
  6. open OUT,">","c.txt" or die;
  7. while (<FH>) {
  8.   print OUT @b if $_=~/^bathome$/;
  9.   print OUT $_;
  10. }
复制代码
1

评分人数

    • Perl: 乐于助人技术 + 1

TOP

perl是什么?我还以为是你名字呢!
本人已死!不用联系!~
要联系下来联系!~~

TOP

回复 2# jellyhk


你这个不是Perl吧?

TOP

我的思路太烂了!哎就当再熟悉下代码好了!
因为开始不要第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.   
复制代码
本人已死!不用联系!~
要联系下来联系!~~

TOP

返回列表