我最喜欢的是Config::Std。我喜欢它处理多行和多部分配置值的方式。
当变量可能是多值时你必须小心:如果配置文件中存在单个值,它将将该值存储在标量中;如果存在多个值,您将获得一个数组引用。
我发现有两个配置文件很方便:一个用于描述操作环境的值(在哪里可以找到库等),另一个用于用户可修改的行为。
我也喜欢围绕它写一个包装器。例如(更新为包括自动生成的只读访问器):
#!/usr/bin/perl
package My::Config;
use strict; use warnings;
use Config::Std;
use FindBin qw($Bin);
use File::Spec::Functions qw( catfile );
sub new {
my $class = shift;
my ($config_file) = @_;
$config_file = catfile($Bin, 'config.ini');
read_config $config_file => my %config;
my $object = bless \%config => $class;
$object->gen_accessors(
single => {
install => [ qw( root ) ],
},
multi => {
template => [ qw( dir ) ],
},
);
return $object;
}
sub gen_accessors {
my $config = shift;
my %args = @_;
my $class = ref $config;
{
no strict 'refs';
for my $section ( keys %{ $args{single} } ) {
my @vars = @{ $args{single}->{$section} };
for my $var ( @vars ) {
*{ "${class}::${section}_${var}" } = sub {
$config->{$section}{$var};
};
}
}
for my $section ( keys %{ $args{multi} } ) {
my @vars = @{ $args{multi}->{$section} };
for my $var ( @vars ) {
*{ "${class}::${section}_${var}" } = sub {
my $val = $config->{$section}{$var};
return [ $val ] unless 'ARRAY' eq ref $val;
return $val;
}
}
}
}
return;
}
package main;
use strict; use warnings;
my $config = My::Config->new;
use Data::Dumper;
print Dumper($config->install_root, $config->template_dir);
C:\Temp> 猫 config.ini
[安装]
根 = c:\opt
[模板]
目录 = C:\opt\app\tmpl
目录 = C:\opt\common\tmpl
输出:
C:\Temp> g.pl
$VAR1 = 'c:\\opt';
$VAR2 = [
'C:\\opt\\app\\tmpl',
'C:\\opt\\common\\tmpl'
];