码迷,mamicode.com
首页 > 其他好文 > 详细

【转载】perl修改原文件内容

时间:2015-01-11 16:04:22      阅读:159      评论:0      收藏:0      [点我收藏+]

标签:

很多时候,我们希望对原有文件的内容进行一定的修改,linux虽然有sed这个强大的文本编辑命令,但是他只能生成新文件或打印到screen上(或许sed也具有修改原文件的功能,小的才疏学浅,尚不知道,烦请大家告诉我),但在perl里却有这么一个命令$^I

例子:

1 #!/usr/bin/perl
2 use strict;
3 $^I="";
4 while(<>){
5 s/^rate.*/rate=0/;
6 s/^testMode.*/testMode=0/;
7 print;
8 }

$^I的值可以决定是要重写文件,还是备份文件,若要重写,只须将其值设为空就可,若要备份,则$^I=".bak", 他就会把改过的文件命名为filename.bak了

http://hi.baidu.com/uncletuuthu/blog/item/862adb0062248e04728da501.html

当你编写脚本或是安装程序的时候,就需要修改特定文件的数据,如果这时有自动修改文件的功能,那将会是非常实用的。例如,当你需要移动一个文件中的某个字符串或是命令,当你要改变许多文件的IP地址的时候,这个功能就可以拿来利用了。


手动改变这些文件会耗费很长的时间,特别当它是一件重复性的任务。但是,你可以使用Perl程序来完成。所有的Linux供应商都有这个程序。执行以下操作:
$ perl -pi -e ‘s|[old_string]|[new_string]|g‘ [file]


字符串可以是简单的命令或是常规的表达式。如果你要改变目录的位置(例:从/var/spool/mail到/var/spool/messages),你想要改变目录/etc下的每个文件来反映路径变化。执行以下操作:
$ find /etc -type f| xargs perl -pi -e ‘s|/var/spool/mail|/var/spool/messages|g‘


在这个例子上,我们使用搜索和xargs来确保系统只运行常规文件的命令,而不是非常规目录或其它文件类型的命令。这也就运行了/etc目录树,而且会递归的改变所有文件。


由于我们/标识,所以我们必须输入了像/var这样的路径而不是/var。我们也可以在Perl表达式使用分隔符。(除了使用|,你也能够使用/, #,@作为分隔符。)
执行以下操作,从整个文件里移开一个命令
$ perl -pi -e ‘s|myword||g‘ file


这就从基本上没有使用任何东西却代替了“myword”.(需要注意的是在第二个和第三个分隔符之间没有空格)。


以这种方式使用Perl的话,当你修改配置文件或其它任何类型的数据的时候,你就会极具创造力。它就是一个自动搜索和代替的功能。

【转载】perl修改原文件内容

标签:

原文地址:http://www.cnblogs.com/Thermo/p/4216484.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!