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

花花世界蕾

　　很多时候，我们希望对原有文件的内容进行一定的修改，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的话,当你修改配置文件或其它任何类型的数据的时候，你就会极具创造力。它就是一个自动搜索和代替的功能。