[Perl]使用Perl修改Linux文件[转载]

使用Perl修改Linux文件

当你编写脚本或是安装程序的时候，就需要修改特定文件的数据，如果这时有自动修改文件的功能，那将会是非常实用的。例如，当你需要移动一个文件中的某个字符串或是命令，当你要改变许多文件的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的话,当你修改配置文件或其它任何类型的数据的时候，你就会极具创造力。它就是一个自动搜索和代替的功能。