每天一个tcl脚本练习-第4天

题目：

统计代码行数，编写一个脚本，读取代码文件，统计其中的代码行数（即不包括注释和空行），并输出总行数和代码行数。**

set in_f "./in.f"
set blank_lines 0
set comment_lines 0
set code_lines 0

set fin [open $in_f r]

while {
   
   [gets $fin line] != -1