Question

perl实现文件修改后写入原文件，如把文件里面的a都换成b后写回去，脚本实现，不用命令行。

Answer 1

$^I="";
while(<>){
s/a/b/;
}

只要求将$^I设置为空,即可实现在原文件改写.

Answer 2

你的代码一下子把所有行都读到@Contant里了，自然耗内存。

这种情况要用while循环一行一行地读，参见下面的改法。

my ($filename) = "text.unl";

unless (open (RDH,$filename))
{
print "File open failed.";
}

while (my $line = <RDH>) {
push @a, $line if /aaa/;
push @b, $line if /bbb/;
push @c, $line if /ccc/;
}
close RDH or die "Cannot close $filename:$!";

Answer 3

#!perl -w
$ARGV[0]="r.txt"; #要修改的文件
$^I=".bak"; #空时，则不备份
while(<>){
s/a/b/g;
print;
}