Make a backup file: Difference between revisions
Added Wren
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
(Added Wren) |
||
Line 707:
backup "D:\test.txt"
End Sub</lang>
=={{header|Wren}}==
{{libheader|Wren-ioutil}}
<lang ecmascript>import "/ioutil" for File, FileUtil
var saveWithBackup = Fn.new { |filePath, lines|
var origPath = filePath
if (File.exists(origPath)) {
origPath = File.realPath(origPath) // gets the canonical absolute path to the file
var backupPath = origPath + ".backup"
FileUtil.move(origPath, backupPath) // follows Linux convention of moving rather than renaming
}
FileUtil.writeLines(origPath, lines) // overwrites the file if it already exists
}
saveWithBackup.call("original.txt", ["fourth", "fifth", "sixth"])
// check it worked
System.print("Current contents of original.txt:")
System.print(File.read("original.txt"))
System.print("Contents of original.txt.backup:")
System.print(File.read("original.txt.backup"))</lang>
{{out}}
<pre>
Current contents of original.txt:
fourth
fifth
sixth
Contents of original.txt.backup:
first
second
third
</pre>
| |||