Tcl 在 proc 返回中挂起

问：

我写了 2 个脚本来做 somting，如下所示：

#script1，转储信息：

proc script1 {} {
  puts $file "set a 123"
  puts $file "set b 456"
  .....
}

（我转储的文件大小是 8GB）

#And 使用 script2 来获取它并执行数据类别：

while { [get $file_wrtie_out_by_script1 line] != -1 } {
  eval $line
}
close $file_wrtie_out_by_script1
Do the job....
return

在这种情况下，脚本挂起作为回报，如何解决问题...卡住了 3+ 天，thnaks

更新：

感谢 Colin，现在我使用 source 而不是 eval，但即使删除了“Do the work...”，只需保持返回，仍然挂起