perl中替换文本一例

由于工作需要，需要批量建立网站，修改配置文件。开始时用sed去批量修改的，最后改装成perl了。

#!/usr/bin/perl
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

本文转自 mcshell 51CTO博客，原文链接：http://blog.51cto.com/mcshell/522270，如需转载请自行联系原作者

perl中替换文本一例相关推荐

python替换文本
简单介绍一下Python中替换文本的方式. replace / re 和 translate replace / re replace相信大家比较熟悉,我们简单的给大家两个示例.分别为:单一替换和批量 ...
java 文本编辑器替换特殊字符_linux中批量替换文本中字符串--转载
(一)通过vi编辑器来替换. vi/vim 中可以使用 :s 命令来替换字符串. :s/well/good/ 替换当前行第一个 well 为 good :s/well/good/g 替换当前行所有 w ...
html中怎么写jq,用jQuery替换HTML页面中的文本
如何替换jQuery中的任何字符串? 假设我有一个字符串"-9o0-9909",我想用另一个字符串替换它. 在问问题之前如何使用jQuery将HTML块替换为HTML块的可能重复, ...
Perl中的替换(七)
在Perl中使用s///进行替换操作,与m//进行查找操作类似. s/with (\w+)/against $1's team/; ##第一个双斜线,表示被替代的文本.第二个双斜线,表示将替 ...
java实现for文件删除_Java 添加、删除、替换、格式化Word中的文本的步骤详解（基于Spire.Cloud.SDK for Java）...
Spire.Cloud.SDK for Java提供了TextRangesApi接口可通过addTextRange()添加文本.deleteTextRange()删除文本.updateTextRang ...
Java版Word开发工具Aspose.Words功能解析：查找和替换Word文档中的文本
MS Word提供了一种简单的方法来查找和替换文档中的文本.查找和替换文本的一种流行用例之一可能是在文档之间的敏感信息在各个实体之间共享之前,对其进行删除或替换.但是,手动过程可能需要您安装MS Wo ...
html实现文本的查找与替换,在 InDesign 中查找并替换文本
在对文档进行修订时,"查找并替换"操作将很有用.您可以全局查找并替换文本.对象.字体.字形和颜色. "查找/更改"对话框 A. 查找/更改选项卡 B. &quo ...
Excel 2010 VBA 入门 048 批量替换文本中的指定字符(replayce函数和方法)
目录示例: 实现代码 Replace函数单元格对象的Replace方法使用Replace方法实现代码示例: 如图所示,该表为某公司商品编码.由于商品目录升级,现商品编码中以"GXGY ...
使用sed命令替换文本，文本中含有“/”的处理方法
为了保留被替换文本的"/",有两种方法例:假如要将文件中的"oracle"替换为"/etc/oracle" 则使用:sed -i 's/o ...

perl中替换文本一例

perl中替换文本一例相关推荐

最新文章

热门文章