使用Config::IniFiles来分析ini文件

1. 安装方法

ppm install Config::IniFiles

2. 测试用例

#!perl -w

# parse ini file using Config::IniFiles;

#

use strict;

use Cwd;

use Config::IniFiles;

my $dir = getcwd;

my $file = $dir . $ARGV[0];

my %ini;

tie %ini, 'Config::IniFiles', ( -file => $file );

foreach( keys %ini )

{

while (my ($key, $value) = each %{$ini{$_}})

{

print "($key, $value)", "\n";

}

}