如何在TCL中找到大写和小写字母的计数

Question

如何在TCL中找到大写AMD较低情况的计数 使用此代码，我只获得ASCII值

foreach character {H e l l o T C L} {
    scan $character %c numeric
    puts "ASCII character '$numeric' displays as '$character'."
}

Answer 1

您可以使用 REGEXP 来为您提供计数：

set str "Hello Tcl"
puts "Uppercase: [regexp -all {[[:upper:]]} $str]"
puts "Lowercase: [regexp -all {[[:lower:]]} $str]"

我使用 [：upper：]] 和 [[：：：较低：]] 而不是 [az] 和 [az] ，因为前者将正确捕获Unicode上下语，而不仅仅是仅仅捕获Unicode的上下文ASCII集。

Answer 2

您可以使用字符串为$ targe 和字符串为较低$ tarnic 来测试每个字符。请注意，非字母字符既不是上层或下情况。有关更多信息，请访问 httpps：// wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww of