Leser: 6
|< 1 2 >| | 17 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
[option1]
test = "irgendwas"
test2 = "irgendwas"
test3 = "irgendetwas"
[option2]
test = "irgendwas"
test2 = "irgendwas"
test3 = "irgendetwas"
1
2
3
4
5
6
7
8
9
#my $dynamicinfos_Obj = new Config::Simple() or die Config::Simple->error();
my $dynamicinfos_Obj = Config::Simple->import_from($config{'dynamicinfos_file'}, \my %dynamicinfos);
#$dynamicinfos_Obj->read($config{'dynamicinfos_file'}) or &fehlerbehandlung("Bitte legen Sie eine Datei $config{'dynamicinfos_file'} an!!! ".$dynamicinfos_Obj->error()." In Line ".);
#$dynamicinfos_Obj->read($config{'dynamicinfos_file'}) or die "Bitte legen Sie eine Datei $config{'dynamicinfos_file'} an!!! ".$dynamicinfos_Obj->error();
#%dynamicinfos = $dynamicinfos_Obj->vars();
$dynamicinfos_Obj->autosave(1);
print "last update: $dynamicinfos{'lastupdate_stamp'}<br>\n"; # geht nicht
print "stamp: ".$dynamicinfos_Obj->param("lastupdate_stamp")."<br>\n"; # geht!!!
1
2
3
4
5
6
7
use strict;
use Config::Tiny;
my $Configfile = "C:\\HOME\\SERVER\\srv_config.ini";
my $Config = Config::Tiny->read($Configfile);
my $rootproperty = $Config->{_}->{rootproperty};
my $JARS = $Config->{JAVA_PARAMETER}->{JARS};
|< 1 2 >| | 17 Einträge, 2 Seiten |