如何计算字符串中重复的单词

Question

我有字符串例如：

Test
Test
Test
Something
Something

我想计算这个字符串重复的次数。

结果将是：

Test 3
Something 2

任何人都可以有想法，怎么做？

Answer 1

proc countwords {str} {
    foreach word [split $str] {incr count($word)}
    foreach word [array names count] {puts "$word $count($word)"}
}

set string {Test
Test
Test
Something
Something}

countwords $string

Test 3
Something 2

Answer 2

要知道特定字在字符串中重复的次数：

regexp -all {\yTest\y} $theString

要计算所有字词：

foreach word [regexp -all -inline {\w+} $theString] {
    incr histogram($word)
}
parray histogram