comment lire un gros fichier ligne par ligne à l'aide de tcl?

J'ai écrit un bout de code en utilisant une boucle while, mais il va prendre trop de temps pour lire le fichier ligne par ligne. Quelqu'un peut-il m'aider s'il vous plaît?
mon code :

   set a [open myfile r]              
   while {[gets $a line]>=0} {   
     "do somethig by using the line variable" 
   }
quelle est la taille du fichier? combien de lignes?

OriginalL'auteur pawankalyan | 2015-06-30