请写一段脚本，统计下图中人名出现的次数，并按从多到少次数排列，语言任意（脚本，难度3）\n使用tcl实现统计人名次数。\nTom\n\nJack\n\nBrian\n\nBrian\n\nJack\n\nJack

在TCL中，由于其主要用于脚本编程，而不是图像处理或自然语言处理，直接统计文本中人名出现次数并按照频率排序可能会比较复杂。不过，我们可以创建一个简单的文本处理示例来完成这个任务。假设我们有一个文本文件，其中包含名字列表：

set file "names.txt"
open $file r | while {![eof]} {
    set line [read $file]
    if {[regexp -all {(\b[Tt]om\b|\b[Jj]ack\b|\b[Bb]rian\b)} $line match names]} {
        incr ::count [llength $names]
    }
}
close $file

# 获取按名称计数的数组
array set counts [lsort -index 2 -decreasing ::count]

puts "Names and their occurrences (from most to least):"
foreach name [array names counts] {
    puts "$name: $counts($name)"
}

这段TCL脚本打开文件`names.txt`，逐行读取，使用正则表达式匹配"Tom", "Jack", 和 "Brian"，每当找到一个就增加对应的计数。最后，它对计数数组进行降序排序并显示结果。

请注意，这个脚本假设文本文件的结构简单，每行只包含一个名字。实际应用可能需要更复杂的解析逻辑，特别是当输入是HTML或其他格式的数据时。