正则表达式在Expect缓冲区中查找字符串

Question

我正在尝试找到一个正则表达式，该正则表达式可以匹配一串转义字符（一个Expect响应，请参阅此问题 ）和一个六位数的数字（第一个字母数字字符）。

这是我需要识别的整个字符串：

\r\n\u001b[1;14HX76196

最终，我需要提取字符串：

X76196 

这是我已经拥有的：

interact {
        #...
        #...
        #this expression does not identify the screen location
        #I need to find "\r\n\u001b[1;14H" AND "([a-zA-Z0-9]{1})[0-9]{5}$"
        #This regex was what I was using before.
        -nobuffer -re {^([a-zA-Z0-9]{1})?[0-9]{5}$} {
                set number $interact_out(0,string)
        }   

我需要标识转义字符以验证它是该屏幕区域中的一个字段。 所以我需要一个包含第一部分的正则表达式，但是反斜杠使我感到困惑...

同样，一旦我在$ number变量中有完整的字符串，如何在Tcl的另一个变量中仅隔离数字？

Answer 1

如果您只想在末尾输入数字，那么这就足够了...

[0-9]{6}

更新新信息

假设\\ n是换行符，而不是文字\\后跟文字n，则可以执行此操作...

\r\n\u001B\[1;14H(X[0-9]{5})

Answer 2

我发现了一些更多的东西。 首先，我不是在查看程序的输出，而是在查看用户的输入。 我需要添加“ -o”标志来查看程序输出。 我也将正则表达式缩短为必要的部分。

@rikh的正则表达式示例使我了解了他或我自己的正则表达式为什么失败的原因，这是由于我不是在看输出而是在看输入。 因此，我尝试的原始正则表达式不是错误的，而是正在查看的数据（缺少“ -o”标志）

这是我的问题的完整答案。

interact {
#...
    -o -nobuffer -re {(\[1;14H[a-zA-Z0-9]{1})[0-9]{5}} {
            #get number in place
            set numraw $interact_out(0,string)
            #get just number out
            set num [string range $numraw 6 11] 
            #switch to lowercase
            set num [string tolower $num]
            send_user "  stored number: $num"
    }   
}

我是Expect和Tcl的新手，所以如果其中任何一个没有意义，或者您对交互标志有更多的了解，请直接告诉我。