523066680

sed之类的是不是可以一句话解决？

Perl是这样的

use File::Slurp;
my $s = read_file("Setttings.ini");
$s=~s/(974|438)/int(rand(1024-100+1)+100)/eg;
write_file("Setttings.ini.txt", $s);
复制代码

523066680

回复 9# flashercs

    既然题主已经限定了文件内容，那我们就根据实际情况而解吧。
11楼已经把行号硬编码处理了 ……