Anonymous user
Read a configuration file: Difference between revisions
→{{header|RapidQ}}
SqrtNegInf (talk | contribs) m (→{{header|Raku}}: .perl -> .raku) |
|||
Line 4,076:
Settings.OtherFamily.Item(0) = Rhu Barber
Settings.OtherFamily.Item(1) = Harry Barber
</pre>
=={{header|Red}}==
<lang Rebol>Red ["Read a config file"]
remove-each l lines: read/lines %file.conf [any [empty? l #"#" = l/1]]
foreach line lines [
foo: parse line [collect [keep to [" " | end] skip keep to end]]
either foo/1 = #";" [set to-word foo/2 false][
set to-word foo/1 any [
all [find foo/2 #"," split foo/2 ", "]
foo/2
true
]
]
]
foreach w [fullname favouritefruit needspeeling seedsremoved otherfamily][
prin [pad w 15 ": "] probe get w
]</lang>
{{out}}
<pre>fullname : "Foo Barber"
favouritefruit : "banana"
needspeeling : true
seedsremoved : false
otherfamily : ["Rhu Barber" "Harry Barber"]
</pre>
| |||