Comment puis-je accéder à des fichiers INI de Perl?

Quelle est la meilleure façon d'analyser le fichier INI en Perl, et de convertir de hachage?

La meilleure façon est de chercher à CPAN (search.cpan.org). 🙂

OriginalL'auteur dan | 2010-01-06

  1. 21

    Je préfère utiliser Config::IniFiles module.

    Config::IniFiles est un très puissant INI manager. Bonne recommandation.

    OriginalL'auteur

  2. 9

    Si vous souhaitez plus d'perlish style puis essayez Tie::Cfg. Exemple:

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

$conf{test}="this is a test";
    L'utilisation de la cravate est recommandé de ne PAS être utiliser par "Perl best practices".

    OriginalL'auteur Ivan Nevostruev

  3. 9

    Le meilleur moyen est de faire usage de la disposition des modules CPAN que ce que d'autres ont suggéré. Ci-dessous est juste pour votre propre compréhension, disons que vous avez un fichier ini comme ceci:

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

    vous pouvez faire votre propre analyse w/o modules en utilisant Perl regex (ou méthodes string) + structures de données comme les tables de hachage.

    Exemple De Code:

       $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";
    }

    sortie

    $ perl perl.pl
Section1 => s1tag1
Section1 => s1value1
Section3 => s3tag1
Section3 => s3value1
Section2 => s2tag2
Section2 => s2value2
    Notez que cette analyse permettra de ne garder qu'une seule paire clé/valeur pour chaque section.
    Perl meilleures pratiques recommande de ne PAS utiliser les regex pour lire des fichiers de configuration, utilisez plutôt des modules du CPAN... Pour les fichiers ini : Config::IniFiles.

    OriginalL'auteur ghostdog74

  4. 8

    Config::Minuscule est très facile et simple à utiliser.

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

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

    OriginalL'auteur Paul Nathan

  5. 7

    Essayer ce module CPAN: Config::INI::Reader

    OriginalL'auteur Quentin

  6. 1

    Tatillonne de la ci-dessus:

    Tie::Cfg, le téléchargement de CPAN, et ne pas manipuler les sections et les clés qui peuvent être séparés par des espaces. Il doit être modifié par l'ajout de guillemets (") autour de la "clés" lors de la configuration de la table de hachage des entrées pour la section et les clés dans les sections. Les fichiers que je suis en train de lire a été généré par MS Windows' les gens, et ont donc beaucoup de places pour tout le monde.

    Config::Minuscule, Config::IniFiles sont pointilleux sur le format. Si aucune ligne n'est pas de la forme [section] ou la touche=val, ils jettent une erreur et on ne peut pas être à la hache, qui, au moins dans la configuration::les Fichiers sont remplis correctement de toute façon. Il serait agréable d'avoir un ignorer l'erreur option. Les fichiers que je suis en train de lire ont certains parasites M4 lignes, que je pouvais courir à travers m4 pour s'en débarrasser, mais ce n'est pas nécessaire dans ce que j'essaie de faire avec ce script particulier.

    OriginalL'auteur HASM

  7. 0

    la lecture et de l'écriture de la fonction de fichier ini edit:

    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;
}

    exemple d'utilisation:

    lire fichier conf et sauvé de hachage

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

    changer la config de l'attribut ou de l'ajout de nouvelles config attributs

    modifier

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

    ajouté de nouvelles config

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

    enregistré votre nouvelle configuration dans un fichier

    iniWrite("/etc/samba/smb.conf",$conf);
    Pourquoi réinventer la roue?
    peut-être que le développeur n'a pas accès à un package d'installation ou de ne pas la configuration ou l'utilisation de l'autre paquet, puis utilise la fonction de travail.

    OriginalL'auteur mehrdad