title: how to read a large file line by line using tcl?
body: <p>I've written one piece of code by using a while loop but it will take too much time to read the file line by line.  Can any one help me please?
  my code :</p>
  
  <pre><code>   set a [open myfile r]              
     while {[gets $a line]&gt;=0} {   
       "do somethig by using the line variable" 
     }
  </code></pre>