1 2 3 4 5 6 7
... ... my $datenbanken_hash_ref = $Config->{datenbanken}; my %hash = %{$datenbanken_hash_ref}; for my $key (keys %hash) { print "$key = $hash{$key}\n"; }
Guest Steffenich habe eine Config(ini file) Datei die wie folgt aussieht:
Guest SteffenIch möchte jetzt aber alle werte unter der Section [datenbanken] in ein Array laden und zwar in einer Schleife, da nachträglich weitere Datenbanken hinzukommen könnten.
1 2 3 4 5 6 7 8 9 10
#!/usr/bin/perl use strict; use warnings; use Config::Tiny; my $Config = Config::Tiny->new; $Config = Config::Tiny->read( 'file.conf' ); my %dbs = %{$Config->{datenbanken}}; print "$_: $dbs{$_}\n" for keys %dbs;