Globally replace text in several files: Difference between revisions

m (Fix Perl 6 -> Raku in comments)
Line 913:
for fn in ["a.txt", "b.txt", "c.txt"]:
fn.writeFile fn.readFile.replace(fr, to)</lang>
 
 
=={{header|Objeck}}==
<lang objeck>class ReplaceAll {
function : Main(args : String[]) ~ Nil {
files := ["text1.txt", "text2.txt"];
each(f : files) {
input := System.IO.File.FileReader->ReadFile(files[f]);
output := input->ReplaceAll("Goodbye London!", "Hello New York!");
System.IO.File.FileWriter->WriteFile(files[f], output)->PrintLine();
};
}
}</lang>
 
=={{header|OpenEdge/Progress}}==
760

edits