perl实现文件修改后写入原文件，如把文件里面的a都换成b后写回去，脚本实现，不用命令行。
答案:3 悬赏:60 手机版
解决时间 2021-12-24 07:34
- 提问者网友：绫月
- 2021-12-23 14:51
perl实现文件修改后写入原文件，如把文件里面的a都换成b后写回去，脚本实现，不用命令行。
最佳答案
- 五星知识达人网友：愁杀梦里人
- 2021-12-23 15:07
$^I="";
while(<>){
s/a/b/;
}
只要求将$^I设置为空,即可实现在原文件改写.
while(<>){
s/a/b/;
}
只要求将$^I设置为空,即可实现在原文件改写.
全部回答
- 1楼网友：胯下狙击手
- 2021-12-23 17:18
#!perl -w
$ARGV[0]="r.txt"; #要修改的文件
$^I=".bak"; #空时，则不备份
while(<>){
s/a/b/g;
print;
}
再看看别人怎么说的。
- 2楼网友：持酒劝斜阳
- 2021-12-23 16:38
你的代码一下子把所有行都读到@Contant里了，自然耗内存。
这种情况要用while循环一行一行地读，参见下面的改法。
my ($filename) = "text.unl";
unless (open (RDH,$filename))
{
print "File open failed.";
}
while (my $line = ) {
push @a, $line if /aaa/;
push @b, $line if /bbb/;
push @c, $line if /ccc/;
}
close RDH or die "Cannot close $filename:$!";
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯