可以通过配置选择使你的程序变得更加灵活,处理配置信息的其中一种简单方法就是使用perl的内建工具(built-in facilities)。
处理配置信息的方法有两种。第一种方法为在某一时间处理一行,并且只允许简单的数值设置。第二种方法允许使用任何合法的perl代码。
有些非常简单的代码允许使用基本的var = value类型设置,并且支持一行代码之后的空行和perl类型说明。
while(<CONFIG>)
{
chomp;
next if (/^s*#/); #
ignore comments
next if (/^s*$/); #
ignore blank lines
if (/^s*(.*?)s*=s*(.*?)s*$/)
{
$prefs{uc }
= ;
}
else
{
warn "Can't
understand config line: $_
";
}
}
下面是被读取的配置信息类型的范例。
# server to use
server = www.builder.com
ip address = 10.0.1.1
如果想给配置文件一个开发良好的语言,你可以很容易使用perl来实现。为了处理配置文件,使用do命令:
do "program.cfg";
如果想让配置设置位于一个独立的名称空间,你可以使用以下的代码:
{ packageConfig; do "program.cfg"; }
以上的提供的两种方法,现在就看你选择哪一种处理配置方法以最佳的满足你的需要了。