Traitement de fichiers volumineux

Question

J'ai un fichier journal volumineux dont j'ai besoin pour analyser avec F # sur Windows 8. Un serveur est constamment en cours d'exécution qui écrit à la fin du fichier journal en ajoutant de nouvelles lignes. Les fichiers journaux sont vérifiés chaque minute pour les modifications. Au lieu de réécrire le fichier entier, je préférerais juste lire à la fin et combiner les lignes nouvellement ajoutées au résultat de l'analyse précédente. Mieux encore, j'aimerais simplement pouvoir enregistrer un rappel à chaque fois que le fichier est modifié. Est-ce possible?

Answer 1

Vous pouvez le faire soit Seek() via le flux de fichiers. Quelque chose comme ceci:

open System.IO 

let WatchLog directory file = 
    // Keep track of last read position 
    let lastRead = ref 0L 

    // Function that's called whenever the file changes 
    let processLog (e : FileSystemEventArgs) = 
     // Open file, and seek to the last read location 
     use fs = new FileStream(Path.Combine(directory, file), FileMode.Open, FileAccess.Read) 
     fs.Seek(!lastRead, SeekOrigin.Begin) |> ignore 

     // Read the rest of the file 
     use sr = new StreamReader(fs) 
     printfn "Reading log: %A" (sr.ReadToEnd()) 

     // Store the length so that we know how much to seek over next time 
     lastRead := fs.Length 
     () 

    // Create a FS watched to be notified when a file changes 
    let fs = new FileSystemWatcher(directory, file) 
    fs.Changed.Add(processLog) 
    fs.EnableRaisingEvents <- true 

WatchLog "M:\Coding\" "TestLog.txt" 

Cependant, pour une raison quelconque, sur ma machine je reçois « Le processus ne peut pas accéder au fichier car il est utilisé par un autre proc » erreurs, que je ne peux pas retrouver. Les déclarations doivent être use débarrassent quand ils sont hors de portée, et même des appels explicites à Close ne résout pas:/