Update a configuration file: Difference between revisions
→{{header|Perl 6}}: Update broken example. use a module for tempfile, explicitly close file
(Added Kotlin) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Update broken example. use a module for tempfile, explicitly close file) |
||
Line 2,489:
The script:
<lang perl6>
my ($tmpfile, $out) =
sub MAIN ($file, *%changes) {
%changes.=map({; .key.uc => .value });
my %seen;
my $out = open $tmpfile, :w;▼
for $file.IO.lines {
when /:s ^ ('#' .* | '') $/ {
Line 2,514 ⟶ 2,512:
}
}
say $out: format-line .key, |(.value ~~ Bool ?? (Nil, .value) !! (.value, True))
for %changes;
}▼
$out.close;
▲}
sub format-line ($key, $value, $enabled) {
("; " if !$enabled) ~ $key.uc ~ (" $value" if defined $value);
}</lang>
|