Come posso leggere il contenuto di un file in un elenco in Lisp?

Question

Voglio leggere il contenuto di un file in una lista. Alcuni dei miei tentativi fino ad ora sono stati -

Nessuno di questi ha funzionato. Qualcuno può dirmi un modo? O ancora meglio - come mettere tutto il contenuto in un array?

Answer 1

Come su

(defun get-file (filename) 
    (with-open-file (stream filename) 
    (loop for line = (read-line stream nil) 
      while line 
      collect line))) 

Answer 2

Dove sono i problemi?

(defun get-file (filename) 
    (let ((x (open filename))) 
    (when x 
     (loop for line = (read-line x nil) 
      while line 
      do (list line))) ; <-- you are not collecting, just doing 
    (close x)))     ; <- the function returns the value of CLOSE 

(defun get-file (filename) 
    (let ((x (open filename :if-does-not-exist nil)) 
     (contents (list nil))) 
    (when x 
     (loop for line = (read-line x nil) 
      while line 
      do (cons contents line))) ; <-- again, the cons goes nowhere 
    (close x) contents))    ; <-- CONTENTS has never been changed 

(defun get-file (filename) 
    (let ((x (open filename :if-does-not-exist nil)) 
     (contents nil)) 
    (when x 
     (loop for line = (read-line x nil) 
      while line 
      do (append contents line))) ; <- again the result goes nowhere 
    (close x) contents))     ; <-- CONTENTS has never been changed 

DO eseguirà solo qualcosa per gli effetti collaterali.

COLLECT raccoglierà il risultato e LOOP quindi restituirà un elenco di valori raccolti all'uscita.

Come già accennato, utilizzare WITH-OPEN-FILE anziché OPEN/CLOSE. WITH-OPEN-FILE chiuderà il file lasciando l'ambito dinamico. Non solo da una normale uscita, ma anche da condizioni di errore usando UNWIND-PROTECT.

Se si desidera leggere il contenuto di un file, è possibile utilizzare READ-SEQUENCE. Con i soliti problemi. Ad esempio quando si legge un file ASCII come testo in una stringa, la stringa potrebbe essere più corta del file. Ad esempio Common Lisp rappresenterà internamente CRLF con un singolo carattere, su piattaforme in cui CRLF è newline. Un altro esempio: nelle implementazioni di supporto Unicode, il codice UTF-8 nel file può essere sostituito con un singolo carattere.

Answer 3

io aggiungo le librerie in

modificare ancora più facile, con uiop, che è incluso nel ASDF:.

(uiop:read-file-lines "file.txt") 

https://github.com/fare/asdf/blob/master/uiop/stream.lisp#L445

ha anche

(uiop:read-file-string "file") 

---

Con Alexandria's read-file-into-string e split-sequenza:

(alexandria:read-file-into-string "file.txt") 
(split-sequence:split-sequence #\Newline *) 

Con str:

(str:lines (str:from-file "file.txt"))