在Perl中解析ini文件的最佳方法是什么?
文件格式如下:
[group1]
value1
value2
value3
[group2]
value1
value2
value3
value4
[group3]
value1
value2
答案 0 :(得分:1)
您没有告诉我们数据的预期格式或没有显示任何现有代码,因此无法知道您要查找的内容,但这至少可以为您提供90%的解决方法:
use strict;
use warnings;
use Data::Dumper;
my %config;
my $group = '';
while (<DATA>) {
chomp;
next unless /\S/;
if (/^\[([^]]+)\]/) {
$group = $1;
next;
}
push(@{$config{$group}}, $_);
}
print Dumper(\%config);
__DATA__
[group1]
value1
value2
value3
[group2]
value1
value2
value3
value4
[group3]
value1
value2