Perl read INI file

工作中需要处理INI 配置文件，看了下同事写的脚本，处理的比较简单，只解析了需要的那部分，没有对其他部分做出处理，自己重新写了一个，可以把整个文件一次处理完毕，很简单，代码如下：

?

use warnings;
use Data::Dumper;

my $f = 'd:/project/SDI/params.config';
my (%dict,$this);

open FILE,"$f";
while(<FILE>){
??? chomp;
??? #解释行和空白行跳过不做处理
??? if(/^/s*#/ or /^/s*$/){
??????? next;
??? }
??? #将[ ]作为头做处理，如有重复将做合并处理
??? elsif(/^/s*/[(/w+)/]/s*$/){
??????? if(exists $dict{$1}){
??????????? $this = $dict{$1};
??????? }
??????? else{
??????????? $dict{$1} = {};
??????????? $this = $dict{$1};
??????? }?????? ?
??? }
??? #定义处理，如有重复将做覆盖处理
??? elsif(/^/s*([^ ]+)/s*=/s*([^ ]+)/s*$/){
??????? ($param,$value) = ($1,$2); #split '=',$_;
??????? $this->{$param}=$value;
??? }
??? #不符合INI文件定义则报错
??? else{
??????? print "Line format error: $_";
??? }
}

print Dumper %dict;

?

测试文件如下：

#this is testing

[checkFileNums_123]
File_Dir=/home/users/dhu/tmp/xtff
Log_Path=./logs/checkFileNums

[checkFileDate]
File_Dir=/home/users/dhu/tmp/xtff
Log_Path=./logs/checkFileDate

?

上述文件运行结果如下：

$VAR1 = 'checkDoneList'; $VAR2 = { ????????? 'File_Dir' => '/home/users/dhu/tmp/xtff',????????? 'Log_Path' => './logs/checkDoneList' ??????? }; $VAR3 = 'checkFileDate'; $VAR4 = { ????????? 'File_Dir' => '/home/users/dhu/tmp/xtff',????????? 'Log_Path' => './logs/checkFileDate' ??????? };