修改文件中某一行的一段小程序，大家帮忙看看！

hcduguo

open(FH,"+<x.txt");
my $pos=tell(FH);
while (<FH>) {
        chomp;
        my($mark,$cont)=split('\|',$_);
        if ($mark eq 'no') {
                $_=~s/no/yes/ig;
                seek(FH,$pos,SEEK_SET); #重新定位到第2行起始位置
                print FH "$_\n"; #更新第2行内容
        }
        $pos=tell(FH); #记录第2行起始位置
}
close(FH);
这段程序主要是替换每行中有“no”标示为“yes”，但是替换结果总是把当前行的下一行的第一个字符替换掉，不知道什么原因，大家给分析一下！

替换前x.txt中的内容：
yes|one!
no|two!
yes|three!
no|four
yes|five
no|six
替换后x.txt中的内容：
yes|one!
yes|two!
es|three!
yes|four
es|five
yes|six

flw

汗～ 因为 yes 比 no 长～

BTW：不知道你为什么会想到原地修改这个馊主意？
重新生成一个文件不行吗？

hcduguo

我有一个文件，内容是随时往里面追加的；
这个程序要定时扫描这个文件，处理这些新增的内容，
因而想通过yes和no 来标示那些处理过了，那些还没处理！
如果不用这种方式，还有其他好的方法吗？

flw

原帖由 hcduguo 于 2007-2-7 10:20 发表
我有一个文件，内容是随时往里面追加的；
这个程序要定时扫描这个文件，处理这些新增的内容，
因而想通过yes和no 来标示那些处理过了，那些还没处理！
如果不用这种方式，还有其他好的方法吗？

为什么不用 0/1 ？
或者 no/ok？

hcduguo

像我刚才说的这种情况，我每次都需要扫描以前处理过的内容！
能不能用什么方法直接定位到新增加的内容上来？每次扫描到下次扫描之间会追加新的内容！

flw

原帖由 hcduguo 于 2007-2-7 10:26 发表
像我刚才说的这种情况，我每次都需要扫描以前处理过的内容！
能不能用什么方法直接定位到新增加的内容上来？每次扫描到下次扫描之间会追加新的内容！

你把位置记录一下不就得了。

hcduguo

在文件中可以直接定位行吗？还是必须从第一行计数？

flw

原帖由 hcduguo 于 2007-2-7 10:32 发表
在文件中可以直接定位行吗？还是必须从第一行计数？

可以直接定位字节。
你能记下行号，就不能记下字节号（pos）？

hcduguo

多谢了！呵呵。。。