set l_file_handle [::open $a_file r]
set content [::read $l_file_handle]
::close $l_file_handle
转载于:https://www.cnblogs.com/greencolor/archive/2011/08/12/2136004.html
set l_file_handle [::open $a_file r]
set content [::read $l_file_handle]
::close $l_file_handle
转载于:https://www.cnblogs.com/greencolor/archive/2011/08/12/2136004.html