Thread Lib für ini-Datei-Verarbeitung: zur Verwendung / Weiterentwicklung (6 answers)
Opened by Nordlicht at 2007-05-05 17:22

Nordlicht
 2007-05-05 23:45
#76470 #76470
User since
2005-10-16
182 Artikel
BenutzerIn
[default_avatar]
Ich hab die richtige, funktionierende Version gefunden. Das kommt davon, wenn man keine Ordnung hält...

Also, dieser Code tut, was er soll.

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
#!/C:/Perl/bin/perl.exe

use strict;
use warnings;

return 1;

sub read_ini
{
my @content;
my %lines;
my $file=shift;
my $name=shift;

open(IN,"<$file") or die "$!";
undef $_;
@content=<IN>;
close(IN);

my $i=0;
my $n=0;
for (@content)
  {
  $i++ if /\[.*?\]/i;
  $n=$i if /\[$name\]/i;
  $lines{"$1"}="$2" if /^(.*?)\=(.*)$/i and $i==$n;
  }
return %lines;
}


sub change_ini
{
my @content;
my %lines;
my $file=shift;
my $name=shift;
my $key=shift;
my $value=shift;

open(IN,"<$file") or die "$!";
@content=<IN>;
close(IN);

my $i=0;
my $n=0;
for (@content)
  {
  $i++ if /\[.*?\]/io;
  $n=$i if /\[$name\]/io;
  s/(^$key\=)(.*)$/$1$value/i, last if /(^$key\=)(.*)$/i and $i==$n;
  }

open(IN,">$file") or die "$!";
for(@content)
  {
  print IN $_;
  }
close(IN);
}


sub insert_item
{
my @content;
my $file=shift;
my $name=shift;
my $new_kv=shift;

open(IN,"<$file") or die "$!";
@content=<IN>;
close(IN);

my $i=0;
my $n=0;
open(IN,">$file") or die "$!";
for(@content)
  {
  $i++ if /\[.*?\]/io;
  $n=$i if /\[$name\]/io and $n ne '-';
  if($n eq $i and $n ne '-')
    {
    print IN $_;
    print IN "$new_kv\n";
    $n='-';
    }
  else
    {
   print IN $_;
   }
 }
close(IN);
}

sub insert_topic
{
my $file=shift;
my $name=shift;

open(IN,">>$file") or die "$!";
print IN "[$name]\n";
close(IN);
}


und hier ein Beispiel:

in der Konfigurationsdatei befinden sich z.B. Serverkonfigurationsdaten (hier ausgedachte Werte, so wie sie in der xitami.aut des Xitami-Servers stehen könnten)
Code: (dl )
1
2
3
4
5
6
7
8
9
10
[Private]
Nordlicht=1234
[Documention]
all=*
webmask=local
[Stats]
Admin=QzeCat96
Root=PakYupTon
http-put=1
http-delete=1


Wir können nun folgende Dinge tun:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/C:/Perl/bin/perl.exe

use strict;
use warnings;
require 'ini.pl';

# Ein neues Wertepaar einfügen
insert_item('director.ini','Private','user2=4567');

# ein Wertepaar verändern
change_ini('director.ini','Private','Nordlicht','abcd');

# ein neues topic einfügen
insert_topic('director.ini','Admin');

# Konfiguration in einem topic auslesen
my %config = read_ini('director.ini','Stats');
while(my ($k,$v) = each(%config))
 {
 #und etwas damit tun...
 print "$k - $v\n";
 }


Dannach sollte die Datei so aussehen:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
[Private]
user2=4567
Nordlicht=abcd
[Documention]
all=*
webmask=local
[Stats]
Admin=QzeCat96
Root=PakYupTon
http-put=1
http-delete=1
[Admin]


Leider unterstützt bisher keine der Funktionen die Übergabe von Arrays als Parameterliste, man kann also keinen Array mit einzufügenden / auszulesenden Werten verwenden. Bis es soweit ist, muss man sich mit Schleifen behelfen, ungefähr so:

Code: (dl )
1
2
3
4
foreach(@pairs)
 {
 insert_item('director.ini','Private',$_);
 }

Ich hab auch noch nicht getestet, wie sich das ganze mit Kommentaren verträgt, ich glaube gar nicht :)
Tja, soweit erstmal.\n\n

<!--EDIT|Nordlicht|1178394627-->

View full thread Lib für ini-Datei-Verarbeitung: zur Verwendung / Weiterentwicklung