使用如下代码:
set file_handle [open a.txt r] #read命令读取文件内容
puts [regexp -all "1" [read $file_handle]] #all参数返回匹配项总数
使用如下代码:
set file_handle [open a.txt r] #read命令读取文件内容
puts [regexp -all "1" [read $file_handle]] #all参数返回匹配项总数