perl中,关于多个文本内容替换

发布网友发布时间：2022-12-10 07:28

共2个回答

热心网友时间：2023-06-23 16:31

读取和写入不能用同一个handler, 可以先读取内容，替换完后再把结果写入原文件。
my @data;
open LOG, "< $file" ;
while(<LOG>){
s/hehe/haha/g;
push @data, $_;
}
close LOG;
open LOG1 ,">$file";
foreach(@data) {
print LOG1;
}
close LOG1;

热心网友时间：2023-06-23 16:32

兄弟，你还不如
`sed -i "s/hehe/haha/" $file`...

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com