perl如何读取ini文件

risepp

UID: 5830
帖子: 70
积分: 161
在线时间: 7 小时

1^# risepp 发表于 2008-03-27 16:25

perl如何读取ini文件

在shell中要读取ini，直接通过. ./FILENAME就可以了
perl有没有什么比较方便的方式或者module中的预定义函数可以用来读取ini啊？
难道只有通过分析ini将=前的内容和变量名称比较再去后面的值来读取ini麽？
请高手指教，谢谢！

liang573728

UID: 38481
帖子: 162
积分: 372
在线时间: 1 天 12 小时

2^# liang573728 发表于 2008-03-27 16:45

用Config::IniFiles

risepp

UID: 5830
帖子: 70
积分: 161
在线时间: 7 小时

3^# risepp 发表于 2008-03-27 17:13

哦，好的，我去找找看，谢谢帮忙。

stoneson

UID: 11214
帖子: 164
积分: 377
在线时间: 1 天 12 小时

4^# stoneson 发表于 2008-03-27 18:49

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
use strict;
use warnings;

use Config::IniFiles;
my $cfg = new Config::IniFiles( -file => "./config.ini" );
print "The value is " . $cfg->val( 'Section', 'Parameter' ) . "." if $cfg->val( 'Section', 'Parameter' );

============config.ini===============
  [Section]
  Parameter=this parameter a few lines1
  Parameter=this parameter a few lines2 #gfdgadfga
============end config.ini============

risepp

UID: 5830
帖子: 70
积分: 161
在线时间: 7 小时

5^# risepp 发表于 2008-03-27 22:13

非常感谢。
：）