Make a backup file: Difference between revisions
Content deleted Content added
Thundergnat (talk | contribs) Rename Perl 6 -> Raku, alphabetize, minor clean-up |
Added Wren |
||
Line 707: | Line 707: | ||
backup "D:\test.txt" |
backup "D:\test.txt" |
||
End Sub</lang> |
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> |