regex - Tcl 正则表达式匹配所有小写的字符串

Question

我正在使用正则表达式来确保字符串都是小写的，但它似乎没有用。

这是我的代码

set name aAaaaA
if { [regexp {/^[a-z]$g} $name] } {
   puts "continue"
} else {
   puts "String is not lowercase. Please enter again"
}

我需要确保输入全是小写，没有任何大写，符号

而且我发现[regexp (?=.*[\L]) $name]可以表达除小写字母以外的字符，但也没有用。

有人可以帮忙吗？谢谢!

Answer 1

不需要为此使用regexp。 Tcl 有一个命令来检查字符串是否匹配某个预定义的字符类。小写字母是预定义的类之一:

set name aAaaaA
if {[string is lower $name]} {
   puts "continue"
} else {
   puts "String is not lowercase. Please enter again"
}

如果不想接受空字符串，可以添加-strict选项:string is lower -strict $name