perl脚本实现的批量修改配置文件的代码。
学习下perl替换文本内容的方法。
例子:
复制代码 代码示例:
#!/usr/bin/perl
#site: www.jb200.com
#
while(<>){
chomp;
@line=split(/s+/,$_);
open FH,"< /home/test/$line[0]/wp-config.php";
my @webfile;
while(<FH>){
s/(ME|ER)', 'root/$1', '$line[1]/g;
push @webfile,$_;
}
close FH;
open FH,"> /home/test/$line[0]/wp-config.php";
print FH for @webfile; #相当于foreach $mm (@webfile){
# print FH $mm;
#
# }
close FH;
}
输入的文件内容,如下:
域名 数据库名称
a1.com a1_db
a2.com a2_db
您可能感兴趣的文章:
perl命令批量替换文件内容的方法
linux批量替换文件内容的三种方法 perl、sed与shell批量替换文件内容
Perl正则表达式替换文本的例子
Perl字符串替换的例子
perl合并两个文件(字符串替换)
使用 Perl 的命令行来替换 awk , sed 之类
perl 命令行替换