Faire défiler un fichier dans Clojure?

Question

Quelle serait la meilleure méthode pour terminer un fichier dans Clojure? Je n'ai pas rencontré d'utilitaires qui pourraient aider à le faire, mais des idées sur la façon de construire un serait appréciée!

Merci.

Answer 1

Comme kotarak déclaré, vous pouvez utiliser RandomAccessFile de chercher à la fin du fichier. Malheureusement, vous devez être occupé-attendre/dormir pour les changements.

En utilisant une séquence paresseuse, vous pouvez traiter les lignes "sur la volée":

(import java.io.RandomAccessFile) 

(defn raf-seq 
    [#^RandomAccessFile raf] 
    (if-let [line (.readLine raf)] 
    (lazy-seq (cons line (raf-seq raf))) 
    (do (Thread/sleep 1000) 
     (recur raf)))) 

(defn tail-seq [input] 
    (let [raf (RandomAccessFile. input "r")] 
    (.seek raf (.length raf)) 
    (raf-seq raf))) 

; Read the next 10 lines 
(take 10 (tail-seq "/var/log/mail.log")) 

Mise à jour:

Quelque chose comme tail -f /var/log/mail.log -n 0, en utilisant doseq, de sorte que les modifications sont effectivement consommées.

(doseq [line (tail-seq "/var/log/mail.log")] (println line)) 

Answer 2

Quelque chose comme:

(take-last 10 (line-seq (clojure.contrib.io/reader "file"))) 

Answer 3

Vous pouvez utiliser RandomAccessFile chercher directement à la fin du fichier et la recherche de sauts de ligne à partir de là. Pas aussi élégant et court que l'approche take-last, mais aussi pas O(n) qui pourrait être important pour les gros fichiers.

Aucune solution pour tail -f, cependant. Une inspiration pourrait être trouvée dans JLogTailer.