Perl: перебор файлов INI - PullRequest
Новая
       34

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

5 голосов
/ 29 марта 2012

Я делаю 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-файла, это будет с благодарностью.

Спасибо.

Ответы [ 3 ]

6 голосов
/ 29 марта 2012

Вы можете делать то, что вы хотите с 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-файле не имеет значения (только расположение, параметры которого в каком разделе имеют значение), это не должно быть проблемой.

5 голосов
/ 29 марта 2012

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

2 голосов
/ 29 марта 2012

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

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

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