Opened by Andreas at 2004-04-20 15:50
User since
2004-04-13
32 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-04-13
32 Artikel
BenutzerIn
Bin selbst noch noob, aber vllt. geht das:
Das sollte Die alles vor dem ersten Leerzeichen als Key nehmen und alles bis zum Zeilenende (exklusiv leerzeichen vorm \n) als schlüssel
p.S.: Kommentare doer Ungültige Zeilen sind hier nicht berücksichtigt.\n\n
<!--EDIT|Knuddlbaer|1082462963-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
my $fh;
open $fh , "DeineDatei";
my $line;
my %conf;
while($line = <$fh>)4
{
$line =~ /^(.*)\s*(.*)\s*$/
$conf{$1} = $2;
}
Das sollte Die alles vor dem ersten Leerzeichen als Key nehmen und alles bis zum Zeilenende (exklusiv leerzeichen vorm \n) als schlüssel
p.S.: Kommentare doer Ungültige Zeilen sind hier nicht berücksichtigt.\n\n
<!--EDIT|Knuddlbaer|1082462963-->