Revision a52a1004
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| SL/Inifile.pm | ||
|---|---|---|
|
open FH, "$file" or Form->error("$file : $!");
|
||
|
|
||
|
while (<FH>) {
|
||
|
next if m/^(#|;|\s)/;
|
||
|
|
||
|
chomp;
|
||
|
|
||
|
# strip comments
|
||
|
s/(#|;).*//g;
|
||
|
s/#.*//g;
|
||
|
|
||
|
# remove any trailing whitespace
|
||
|
s/^\s*//;
|
||
Auch abrufbar als: Unified diff
";" nicht als Kommentarzeichen ansehen.