Anonymous user
Globally replace text in several files: Difference between revisions
Globally replace text in several files (view source)
Revision as of 02:23, 26 October 2015
, 8 years agono edit summary
m (→{{header|Sidef}}: minor correction: changed "toFile" into "to_file") |
No edit summary |
||
Line 331:
(doseq [file more]
(spit file (.replace (slurp file) "Goodbye London!" "Hello New York!"))))</lang>
=={{header|Common Lisp}}==
<lang Lisp>
(defun hello-goodbye (files)
(labels ((replace-from-file (file)
(with-open-file (in file)
(loop for line = (read-line in nil)
while line do
(loop for index = (search "Goodbye London!" line)
while index do
(setf (subseq line index) "Hello New York!"))
collecting line)))
(write-lines-to-file (lines file)
(with-open-file (out file :direction :output :if-exists :overwrite)
(dolist (line lines)
(write-line line out))))
(replace-in-file (file)
(write-lines-to-file (replace-from-file file) file)))
(map nil #'replace-in-file files)))
</lang>
=={{header|D}}==
| |||