Perl read INI file

最新推荐文章于 2025-12-09 02:17:52 发布

原创最新推荐文章于 2025-12-09 02:17:52 发布 · 2.7k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#ini #perl #file #path #testing #脚本

Perl 专栏收录该内容

44 篇文章

订阅专栏

本文介绍了一种使用Perl语言解析INI配置文件的方法。通过提供的示例代码，展示了如何读取和解析INI文件，并将其内容组织成易于操作的数据结构。

工作中需要处理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'
        };