Problem mit Config::Simple (Fragen zu Perl-Modulen)

[thread]15487[/thread]

Problem mit Config::Simple

Readers: 20

Articles: hide open all | hide show old branches

+3 replies

guest Graf Herschel

2010-09-27 11:21

wäre mir Hilfe eurerseits sehr willkommen.

Ich verwende
use Config::Simple;

Das configfile kann enthalten:

Code: (dl )

param_a	= wert
param_b	= wert1,wert2,wert3,usw

[SECTION_A]
param_a = 1

Und ich lese folgend:

Code: (dl )

# IN: [0]filename,[1]key, [2]section

sub inc_CFILE_GetKeyResult()
{
	my (%res)=();
	my($sect)="default";

	Config::Simple->import_from($_[0],\%res) or die Config::Simple->error();	
# setze falls section gewünscht
	if($_[2])
	{	$sect=$_[2];	}

# Hier möchte ich immer ein array zurückgeben, das sich nur auf einen key bezieht. Wie gebe ich das zuverlässig zurück ??

}

caller

Code: (dl )

my $res = &inc_CFILE_GetKeyResult($CFILE,0,"param_a");

# Ausgabe der/des Resultate(s)
foreach(@{$res})
{	print("$_\n");	}

Wie funktioniert das?
Vielen Dank

//modedit GwenDragon: Titel sinnvoll geändert
Das nächste mal bitte einen Titel, aus dem das Problem erkennbar ist und nicht der Gemütszustand. ;)
Last edited: 2010-09-27 11:43:00 +0200 (CEST)

+2 replies

guest wer

2010-09-27 11:54

Ich würde nicht bei jeder Abfrage eines Wertes die ganze Konfigurationsdatei neu laden. Das Kostet unheimlich zeit. Besser ist es sie nur einmal zu laden.

So würde ich es machen:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Config::Simple;
use Data::Dumper;

my $conf=LoadConfig('simple.conf');
my $VAR1=GetKeyResult($conf,'param_a');
my $VAR2=GetKeyResult($conf,'param_b');
my $VAR3=GetKeyResult($conf,'param_a','SECTION_A');

print Dumper($VAR1,$VAR2,$VAR3);


sub LoadConfig
{
  my $file=shift;
  my $conf={};
  Config::Simple->import_from($file,$conf) or die Config::Simple->error();
  return $conf;
}

sub GetKeyResult
{
  my $conf=shift;
  my $key=shift;
  my $section=shift || 'default';

  # ist ein key vorhanden?
  return [] unless($key);
  # ist der config-Hash definiert?
  return [] unless($conf && ref($conf) eq 'HASH');
  # gibt es den Eintrag?
  return [] unless(exists($conf->{"$section.$key"}));

  # wert holen
  my $val=$conf->{"$section.$key"};
  # Ist es eine Arrayreferenz? wenn nicht in ein anonymes Array packen
  $val=[$val] unless(ref($val) eq 'ARRAY');
  # wert zurückgeben
  return $val;
}

Last edited: 2010-09-27 11:57:37 +0200 (CEST)

guest Graf Herschel

2010-09-28 00:24

$val=[$val] unless(ref($val) eq 'ARRAY');

Das sind die Anweisungen, die dem caller saubere Umstände bieten.
Leider gelingen mir solche Zeilen nicht.
Danke für deine Mühe, danke für deine Zeit
War mir eine große Hilfe !

Gruß
Last edited: 2010-09-28 00:26:28 +0200 (CEST)

View all threads created 2010-09-27 11:21.