Perl [脚本] Perl 处理配置文件

laofo · 发布于 2010年9月03日 · 171 次阅读
4

用perl实现一操作配置文件的命令,根据命令选型打印或修改配置项 配置文件如下 ##### [Section1] key1=value1 key2=value2 [section2] key1=value1 key2=value2

共收到 2 条回复
4
laofo · #1 · 2010年9月03日

没事的时候大家看看怎么写这个

96
shawn2001 · #2 · 2011年3月22日

把相同key的不同value放到分别的文件中会简单许多。那样直接读入hash就可以了。

以下代码参考perl cookbook <8.16. Reading Configuration Files>

while () {
chomp; # no newline
s/#.//; # no comments
s/\s+//; # no leading white
s/\s+$//; # no trailing white
next unless length; # anything left?
my ($var, $value) = split(/\s
=\s*/, $_, 2);
$User_Preferences{$var} = $value; }

需要 登录 后方可回复, 如果你还没有账号请点击这里 注册