日志
tcl7
| |
可以在字典的值中添加一个字符串或一些字符串，注意变量不带$，该命令返回更新后的字典，并把它写回原字典变量
% set ex {firstname ann surname huan title miss}
firstname ann surname huan title miss
% dict append ex firstname ie
firstname annie surname huan title miss
% dict get $ex firstname
annie
2.dict lappend
在字典值中创建列表
% set shopping {fruit apple veg carrot}
fruit apple veg carrot
% dict lappend shopping fruit orange
fruit {apple orange} veg carrot
% dict lappend shopping fruit banana
fruit {apple orange banana} veg carrot
%
3.dict incr
获取一个包含字典的变量，一个将要对其关联值进行之家操作的关键字，以及一个可选的值，用来设置增加量。命令的结果是更新后的字典，也会写回原字典变量中
指定的关键字不必实现存在字典中，如果不存在就视为实现存在，值为0.在统计一段文字中各单词的出现次数，特别有用
% proc cntword {text} {
> set freq {}
> foreach word [split $text] {
> if {$word eq " "} continue
> dict incr freq [string tolower $word]
> }
> return $freq
> }
% cntword "this day is a happy happy day"
this 1 day 2 is 1 a 1 happy 2
/2 
eetop公众号
创芯大讲堂
创芯人才网