如何从 Perl 访问 INI 文件？

Question

在 Perl 中解析 INI 文件并将其转换为哈希的最佳方法是什么？

Answer 1

我更喜欢使用 Config::IniFiles 模块。

Answer 2

如果您喜欢更perlish风格，请尝试 Tie::Cfg。样本：

tie my %conf, 'Tie::Cfg', READ => "/etc/connect.cfg";

$conf{test}="this is a test";

Answer 3

最好的方法是按照其他人的建议使用 CPAN 中的可用模块。下面仅供您自己理解，假设您有这样的 ini 文件：

$ more test.ini
[Section1]
    s1tag1=s1value1             # some comments
[Section2]
    s2tag1=s2value1           # some comments
    s2tag2=s2value2
[Section3]
    s3tag1=s3value1

您可以仅使用 Perl 的正则表达式（或字符串方法）+ 哈希等数据结构来进行自己的解析，无需模块。

示例代码：

   $ini="test.ini";
    open (INI, "$ini") || die "Can't open $ini: $!\n";
        while (<INI>) {
            chomp;
            if (/^\s*\[(\w+)\].*/) {
                $section = $1;
            }
            if (/^\W*(\w+)=?(\w+)\W*(#.*)?$/) {
                $keyword = $1;
                $value = $2 ;
                # put them into hash
                $hash{$section} = [ $keyword, $value];
            }
        }
    close (INI);
    while( my( $k, $v ) = each( %hash ) ) {
        print "$k => " . $hash{$k}->[0]."\n";
        print "$k => " . $hash{$k}->[1]."\n";
    }

输出

$ perl perl.pl
Section1 => s1tag1
Section1 => s1value1
Section3 => s3tag1
Section3 => s3value1
Section2 => s2tag2
Section2 => s2value2

Answer 4

Config::Tiny 非常简单易用。

$Config = Config::Tiny->read( 'file.conf' );

my $one = $Config->{section}->{one};
my $Foo = $Config->{section}->{Foo};

Answer 5

尝试来自 CPAN 的此模块： Config::INI::Reader

Answer 6

对上面的挑剔：

从 CPAN 下载的 Tie::Cfg 不处理可能包含空格的部分和键。当设置该部分和部分内的键的哈希条目时，需要通过在“键”周围添加引号（“）来更改它。我试图读取的文件是由 MS Windows 的人员生成的，因此 Config::Tiny、Config::IniFiles 对格式非常

挑剔，如果任何行不是 [section] 或 key=val 的形式，它们就会抛出错误并且无法访问。至少在 Config::Files 中，哈希值被正确填充，如果我尝试读取的文件中有一些虚假的 M4 行，我可以运行它。通过 m4 来摆脱，但这在我尝试使用这个特定脚本执行的操作中是不必要的。

Answer 7

ini 文件的读写功能 编辑：

sub iniRead
 { 
  my $ini = $_[0];
  my $conf;
  open (INI, "$ini") || die "Can't open $ini: $!\n";
    while (<INI>) {
        chomp;
        if (/^\s*\[\s*(.+?)\s*\]\s*$/) {
            $section = $1;
        }

        if ( /^\s*([^=]+?)\s*=\s*(.*?)\s*$/ ) {
          $conf->{$section}->{$1} = $2;         
        }
    }
  close (INI);
  return $conf;
}
sub iniWrite
{
  my $ini = $_[0];
  my $conf = $_[1];
  my $contents = '';
foreach my $section ( sort { (($b eq '_') <=> ($a eq '_')) || ($a cmp $b) } keys %$conf ) {
    my $block = $conf->{$section};
    $contents .= "\n" if length $contents;
    $contents .= "[$section]\n" unless $section eq '_';
    foreach my $property ( sort keys %$block ) {
      $contents .= "$property=$block->{$property}\n";
    }
  }
  open( CONF,"> $ini" ) or print("not open the file");
  print CONF $contents;
  close CONF;
}

示例用法：

读取conf 文件并保存到散列

$conf = iniRead("/etc/samba/smb.conf");

更改您的配置属性或添加新的配置属性

编辑

$conf->{"global"}->{"workgroup"} = "WORKGROUP";

添加的新配置

$conf->{"www"}->{"path"}="/var/www/html";

将您的新配置保存到文件

iniWrite("/etc/samba/smb.conf",$conf);