使用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";
    }
}