Question

使用perl来编程，有什么方法能在脚本运行时，对txt文件中某一行的变量值快速进行修改？

要在*.pl运行中，对txt：
cccc = 1
bbbb = 2

中的第一次修改cccc为15，bbbb为12，
第二次修改cccc为10，bbbb为9，
第三次修改cccc为8，bbbb为20。
请问怎么修改？

Answer 1

open($f,'a.txt');
$e=0;
while(<$f>){
if(/cccc =\d+/){}
elsif(/bbbb =\d+){$e=1;}
else{if($e){$d.=$_;}else{$p.=$_;}}
}
close $f;
seek($f,0,0);
@c=(15,10,8);
@b=(12,9,20);
for(1..3){
print "try the $_ times\n";
<STDIN>;
open($f,'a.txt');
print $f $d;
print $f “cccc = ",$c[$_-1],"\nbbbb =”,$b[$_-1],"\n";
print $f $p;
close $f;
}