Make a backup file: Difference between revisions
Content added Content deleted
(→{{header|Java}}: Tested & fixed code) |
Catskill549 (talk | contribs) |
||
| Line 29: | Line 29: | ||
file.Write("This is a test string.`r`n") |
file.Write("This is a test string.`r`n") |
||
file.Close()</lang> |
file.Close()</lang> |
||
=={{header|AWK}}== |
|||
<lang AWK> |
|||
# syntax: GAWK -f MAKE_A_BACKUP_FILE.AWK filename(s) |
|||
# see: http://www.gnu.org/software/gawk/manual/gawk.html#Extension-Sample-Inplace |
|||
@load "inplace" |
|||
BEGIN { |
|||
INPLACE_SUFFIX = ".BAK" |
|||
} |
|||
BEGINFILE { |
|||
inplace_begin(FILENAME,INPLACE_SUFFIX) |
|||
} |
|||
1 # rewrite file unchanged |
|||
ENDFILE { |
|||
inplace_end(FILENAME,INPLACE_SUFFIX) |
|||
} |
|||
END { |
|||
exit(0) |
|||
} |
|||
</lang> |
|||
=={{header|Common Lisp}}== |
=={{header|Common Lisp}}== |
||