首页 手机软件 手机游戏 单机游戏 资讯文章 专题下载 游戏合集 文章合集 php下载 php教程 电脑软件
+ -
当前位置：首页 → 问答吧 → 求助,如何在两个文件之间进行替换？

求助,如何在两个文件之间进行替换？

时间：2010-10-05

来源：互联网

举例说，现有两个文本文件: 1.txt和test.txt

１.txt里面是：
４
６
８
９
５

test.txt里面是：
ers=7.00

我想做的是把test里面的7分别替换为1.txt里的数字，然后依次追加存储到另一个名为out.txt的文件里，也就是生成：
ers=4.00
ers=6.00
ers=8.00
ers=9.00
ers=5.00

我写的代码如下:
  1. #!/usr/bin/perl -w
  2. use strict;

  4. my $a="1.txt";
  5. my $b="test.txt";
  6. open IN1, $a or die "can't open $a";
  7. open IN2, $b or die "can't open $b";
  8. open OUT, '>>', "out.txt" or die "can't open out.txt";

  10. while (my $line=<IN1>){      

  12.       while (<IN2>){            
  13.              chomp($line);
  14.              s/7/$line/g;               
  15.             print OUT "$_\n";
  16.             print "$_\n" ;                       
  17.      }
  18. }
  19. close IN1;
  20. close IN2;
  21. close OUT;
复制代码
结果出来后out.txt里却只有一条： ers=4.00
冒似里面的while循环只进行了第一次，这是为什么呢？刚刚接触perl，请指教。。。谢谢！

作者: lena_tum   发布时间: 2010-10-05

问题在句柄IN2上
在第一次while(<IN2>)循环完成后，
IN2的内容已经读取完了，它的文件指针指向了test.txt的结尾
所以从第二次开始while(<IN2>)已经读取不了任何东西了

如果想要按照你的思路来做
需要用seek函数重新指定文件指针
  1. #!/usr/bin/perl -w
  2. use strict;

  4. my $a="1.txt";
  5. my $b="test.txt";
  6. open IN1, $a or die "can't open $a";
  7. open IN2, $b or die "can't open $b";
  8. open OUT, '>>', "out.txt" or die "can't open out.txt";

  10. while (my $line=<IN1>){      
  11.     seek IN2,0,0;
  12.     while (<IN2>){            
  13.         chomp($line);
  14.         s/7/$line/g;               
  15.         print OUT "$_\n";
  16.         print "$_\n" ;                       
  17.     }
  18. }
  19. close IN1;
  20. close IN2;
  21. close OUT;
复制代码

作者: 珞水的大叔   发布时间: 2010-10-05

回复 珞水的大叔


果然！！！太太太感谢了！！！

作者: lena_tum   发布时间: 2010-10-05

回复 lena_tum


   

作者: 珞水的大叔   发布时间: 2010-10-05

相关阅读 更多

热门阅读

热门下载

更多
关于本站 免责申明 联系我们

Copyright 2006-2020 php爱好者(phpfans.net) All Rights Reserved.备案号：湘ICP备2023016114号-2

本站为非盈利性网站，不接受任何广告。本站所有资源均由网友上传，如有侵权，请发邮件至 [email protected] phpfans.net