Perl: перебор INI-файлов

Я делаю сценарий Perl, который должен читать и получать значения файла INI.

Формат INI-файла:

[name]
Property=value

Пример:

[switch_6500]
cpu=1.5.1.12.4
free_memory=1.45.32.16

[oracle_db_11g]
param1=value1
param2=value2
param3=value3
param4=value4
...

Как видите, секций может быть сколько угодно, содержащих любое количество параметров. Названия разделов/параметров всегда будут разными.

Что мне нужно сделать, так это заставить мой Perl-скрипт выполнить итерацию по каждому разделу и получить все имена/значения параметров этого раздела. То, что я привык делать с файлами INI, — это просто указывать имя раздела вместе с именем параметра следующим образом:

  #!/usr/bin/perl -w

  use strict;
  use warnings;
  use Config::Tiny;

  # Read the configuration file
  my $Config = Config::Tiny->new();
  $Config = Config::Tiny->read( 'configfile.ini' );
  my $Metric1_var = $Config->{switch_6500}->{cpu};
  my $Metric2_var = $Config->{switch_6500}->{free_memory};

Однако теперь, когда у меня есть неопределенное количество имен/параметров разделов, а также я не знаю их имен, я не могу найти способ извлечь все значения. Я искал модуль Config::IniFiles, и в нем есть кое-что интересное, но я не могу найти способ получить значение параметра, не зная имени раздела/параметра.

Если кто-нибудь может помочь мне с повторением этого INI-файла, я был бы очень признателен.

Спасибо.


file config iteration perl ini
person user1300922    schedule 29.03.2012    source источник

Ответы (3)


arrow_upward
6
arrow_downward

Вы можете делать с Config::Tiny что хотите. Просто используйте функцию keys для перебора всех ключей хеша следующим образом:

use strict;
use Config::Tiny;

my $config = Config::Tiny->read('configfile.ini');

foreach my $section (keys %{$config}) {
    print "[$section]\n";
    foreach my $parameter (keys %{$config->{$section}}) {
        print "\t$parameter = $config->{$section}->{$parameter}\n";
    }
}

Примечание. Поскольку хэши "хэшируются", а не упорядочены, как массивы, порядок возвращаемых ключей может показаться бессмысленным. Поскольку порядок в INI-файле не имеет значения (важно только размещение параметров в каком разделе), это не должно быть проблемой.

person Eric    schedule 29.03.2012
comment
Большое спасибо, это именно то, что я искал. - person user1300922; 29.03.2012

arrow_upward
5
arrow_downward

Лично я предпочитаю Config::Simple. Вы можете вызвать метод param() без аргументов, чтобы вернуть все параметры из вашего файла. Он также имеет несколько других приятных функций по сравнению с Config::Tiny.

person Cfreak    schedule 29.03.2012

arrow_upward
2
arrow_downward

Я так понимаю, вы довольны разбором ini-файлов. Если вы просто хотите просмотреть все разделы и их пары ключей, тогда

Вы можете перебирать Hash-Of-Hash следующим образом.

foreach my $Section (keys %$Config) {
 print "[$Section]";
 foreach my $Key (keys %{$Config->{$Section}}) {
  print "$Key = $Config->{$Section}->{$Key}";
 }
}
person tuxuday    schedule 29.03.2012