Leser: 2
|< 1 2 >| | 20 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use warnings;
use Config::Properties;
use Data::Dumper;
my $file = 'test.cfg';
open my $fh, '<', $file or die "Unable to open $file ($!)";
my $properties = Config::Properties->new();
$properties->load($fh);
my $config = $properties->splitToTree(qr/\./);
close $fh;
print Dumper($config);
|< 1 2 >| | 20 Einträge, 2 Seiten |