2016 年 9月 1 日随笔档案 - HIstone

2016年9月1日

摘要： set w [open 1.txt w+] foreach a [info var] { if { [llength [array name $a]]==0 } { puts $w $a:[set $a] } } foreach a [info var] { if { [llength [array 阅读全文

posted @ 2016-09-01 21:59 HIstone 阅读(306) 评论(1) 推荐(0) 编辑