如何用正则表达式检测行尾指定字符及无多余空格？

没问题，我帮你梳理这两个Tcl正则相关的需求，分两部分给出解决方案和代码示例：

一、判断特定内容位于无尾空格的行尾 #

要判断目标单词/数字在**无任何后续内容（包括空格）**的行尾，核心是用$锚点匹配行/字符串的末尾，同时确保目标内容后没有空白字符。

代码示例 #

# 测试两种字符串：无尾空格 vs 有尾空格
set valid_line "abc 123 456"
set invalid_line "abc 123 456 "

# 方案1：直接用$锚点锁定末尾
if {[regexp {abc\s\d+\s\d+$} $valid_line]} {
    puts "valid_line 符合要求：目标内容在无尾空格的行尾"
} else {
    puts "valid_line 不符合要求"
}

if {[regexp {abc\s\d+\s\d+$} $invalid_line]} {
    puts "invalid_line 符合要求"
} else {
    puts "invalid_line 不符合要求：末尾存在多余空格"
}

# 方案2：结合负前瞻（和你提供的思路呼应）
# 负前瞻(?!\s)确保目标数字后没有空白，再用$锁定末尾
if {[regexp {abc\s\d+\s\d+(?!\s)$} $valid_line]} {
    puts "valid_line 用负前瞻验证也通过"
}

关键说明 #

• $：在Tcl的regexp中，默认匹配整个字符串的末尾；如果配合-line选项，则匹配每行的末尾。
• \s：匹配任意空白字符（空格、制表符等），比直接写[ ]更通用。
• 你的第二个regexp返回0是正确的：因为字符串末尾有空格，(?! )检查数字后是否没有空格，但实际数字后是空格，所以匹配失败。

二、从多行文本中筛选无尾空格的行 #

要从任意格式的多行文本中筛选末尾无空白的行，需要结合-line选项让正则逐行处理，再匹配行尾无空白的规则。

代码示例 #

# 模拟多行文本输入（注意第2、4行末尾有空格）
set multi_text {
apple banana 123
orange grape 456 
cat dog mouse
fish bird 789 
}

# 方法1：拆分逐行判断（直观易读）
puts "筛选出的无尾空格行（方法1）："
foreach line [split $multi_text \n] {
    # 跳过空行
    if {[string trim $line] eq ""} {
        continue
    }
    # 检查行最后一个字符不是空白
    if {[regexp {[^[:space:]]$} $line]} {
        puts "  $line"
    }
}

# 方法2：用regexp直接提取（更简洁）
puts "\n筛选出的无尾空格行（方法2）："
set matched_lines [regexp -all -line -inline {^[^\n]*[^[:space:]]$} $multi_text]
foreach line $matched_lines {
    puts "  $line"
}

关键说明 #

• -line：开启多行模式，让^匹配每行开头，$匹配每行末尾。
• [^[:space:]]$：确保行的最后一个字符不是任何空白字符（覆盖空格、制表符等场景）。
• -all -inline：一次性提取所有符合条件的行，返回结果是匹配到的行列表。

内容的提问来源于stack exchange，提问作者Gaurav Singh