Dans TCL, l ouvrir un fichier de la queue

Question

J'ai ce numéro:
J'ai besoin parfois de traiter des fichiers texte énormes.
Dans certains cas, je sais que les données qui m'intéressent sont dans la queue du fichier. Si j'utilise l'ouverture normale, j'ai besoin de faire défiler les lignes. Y at-il un moyen de "commencer à la fin", et gagner du temps, peut-être lire le fichier à l'envers?

Answer 1

Vous pouvez utiliser la commande seek:

set linesz 256 ; # assume an approximate line size 
set fh [open myfile.txt] 
seek $fh [expr {$linesz*-5}] end 
gets $fh line ; # this first line is probably a partial line, ignore it. 
while { [gets $fh line] >= 0 } { 
    # process 
} 
close $fh 

Références: seek