帮忙写一个批处理
发布网友
发布时间：2024-10-06 02:11
共1个回答
热心网友
时间：2024-11-09 06:01
这个推荐你用perl，随便下载个perl很方便，比如我安的dwimperl-5.14.2.1。由于你的需求不太明确，我把a=开头后面跟连续数字的全部替换成321了。
代码如下：
my $ini = 'c:\test\a.ini';my $data = read_file($ini);
$data =~ s/(?<=a=)\d+/321/g;
write_file($ini, $data);
print "done!\n";
sub read_file {
my ($fn) = @_;
open my $in, '<:encoding(UTF-8)',
$fn or die "Could not open '$fn'";
local $/ = undef;
my $all = <$in>;
close $in;
return $all;
}
sub write_file {
my ($fn, $content) = @_;
open my $out, '>:encoding(UTF-8)',
$fn or die "Could not open '$fn'";
print $out $content;
close $out;
return;
}
