Revision a52a1004
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/Inifile.pm | ||
|---|---|---|
| 52 | 52 |
open FH, "$file" or Form->error("$file : $!");
|
| 53 | 53 |
|
| 54 | 54 |
while (<FH>) {
|
| 55 |
next if m/^(#|;|\s)/; |
|
| 56 |
|
|
| 57 | 55 |
chomp; |
| 58 | 56 |
|
| 59 | 57 |
# strip comments |
| 60 |
s/(#|;).*//g;
|
|
| 58 |
s/#.*//g;
|
|
| 61 | 59 |
|
| 62 | 60 |
# remove any trailing whitespace |
| 63 | 61 |
s/^\s*//; |
Auch abrufbar als: Unified diff
";" nicht als Kommentarzeichen ansehen.