论坛徽章:: 0

发表于 2003-03-10 18:13 |显示全部楼层

我试了半天，匹配什么都正常，调试也print出正常的结果，
但就是最后不会Update文件的内容！
自己先汗一下。。。不知道哪里错了，请大家指正！
#!/bin/perl
use strict;
my $Dir = "/backup/Oct/test";
my $mail;
opendir DH, $Dir or die "Cannot open $Dir

!";
foreach $mail(readdir DH) {
      next if ($mail=~ /^\./);
      next if ($mail=~ /pl$/);
      print "Now is $mail\n";

      open (MAIL, "+<$mail"

or die "Cannot Open The File $mail to write

!";
while(<MAIL>

{
            chomp;
            if (/Type\s=\sinternet/) {
                     if(s/internet/Internet/g)
                              {print "Success Replace!\n"};
                     print "I Find The STR $_\n";
            }
      }
      close MAIL;
}

文库|博客

apile

富足长乐

论坛徽章:: 1

发表于 2003-03-11 09:13 |显示全部楼层

请教如何能读一个文件，而且能做字符串替换？

根據我的經驗..我每次用
open(FH,"+<$file"

;
從來沒有成功寫回去過....
我也不曉得哪兒有問題...反正就是這樣...

所以建議你分開寫吧...
open(FH1,"<$file"

;
open(FH2,">;$file"

;

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

nyfor

白手起家

论坛徽章:: 0

发表于 2003-03-11 09:35 |显示全部楼层

请教如何能读一个文件，而且能做字符串替换？

以读写方式打开的文件一般来说都是针对随机文件的，需要对文件指针位置，数据长度进行控制。如果是文本文件，你又不去控制这个指针位置和数据长度的话，那么肯定会有问题的。

就你的代码来看根本没有对文件句柄MAIL进行过写操作，如果说你替换后的字符串长度和原来一致，那么倒还可以考虑用读写方式打开文件。当然需要使用seek回退文件指针后再进行写入操作。