perl输出流变量替换问题

2025-05-23 16:07:50

推荐回答（2个）

回答1：

open (TTT, ">$outfile");
经过中间步骤$origin_word发生变化
print (TTT $origin_word);
close(TTT);
这样子不行么？或者
open (TTT, ">$outfile");
print (TTT $origin_word);
close(TTT);
open (TTT, ">$outfile");
print (TTT $updated_word);
close(TTT);

回答2：

可以先读取这个文件，处理之后写到另外一个文件。
或者用先读后写模式
open (TTT, "+<$outfile");
这样和上面的方法其实差不多。