PERL如何根据一个文本的后续内容来更新前面的内容？

sunkey

比如一个文本， 需要处理的过程是：

　必须根据他邻近的下一行或者下几行的某个特定字段的值来决定
　当前行的某个字段的值　（比如某个特定格式的续行，本来一行
　只有１０个字段，需要做的是根据最后一个字段的值，来改变第
　一个字段的值，但每个字段的长度并不一样，因此有可能字段并
　不在一行上，比如超过８０个字符以后，用"\"续行）

这样的处理，怎么用PERL很好的实现？？　请高手帮忙！！

　         

Haskell

1. while( <FILE>; ){
   
2.     $curpos = tell FILE;
   
3.     if <FILE>; .... #读取下面的内容，并判断操作
   
4.     ...
   
5.     seek FILE, $curpos, 0;
   
6. }

复制代码

apile

一次把整個文檔都存進array中作處理...

sunkey

[quote]原帖由 "apile"]一次把整個文檔都存進array中作處理...[/quote 发表：


   你的意思是先把文件全读进来， 然后处理， 完了再写回去？？
  
   如果是一个1G左右的大文档，这样是不是无法实现了就？

sunkey

[quote]原帖由 "Haskell"][/quote 发表：



   解释一下？？    

Haskell

[quote]原帖由 "sunkey"]   解释一下？？    [/quote 发表：

就是先把文件指针的位置保存下来，然后任你怎么去折腾，完了记得再恢复回来就是了。
这样的话 while 语句那儿就不会乱套。