tcl / expect中的正则表达式

时间:2012-06-18 14:39:48

标签: tcl expect

我对expect中的正则表达式有疑问,

我使用以下表达式:

expect {
    -re "PLAYER: (RON)_(\[0-9]*)"
    ###do something using switch
}

匹配输出"PLAYER:RON_90"的以下格式,输出的第一部分始终相同:"PLAYER:RON_",但它的第二部分(第一部分之后的名称)正在改变alawys ,有时为PLAYER:RON_90,有时为PLAYER:RON_87PLAYER:RON_75,我想根据第二部分的第一个数字执行不同的操作,例如:如果是PLAYER:RON_second part (90到99),执行操作1,如果是PLAYER:RON_second part(80到89),请执行操作2,如果是PLAYER:RON_second part(70到79),请执行操作3.

如何实现它?修改正则表达式?还是其他一些方法?有人可以帮忙吗?

2 个答案:

答案 0 :(得分:7)

怎么样:

expect {
    -re {PLAYER RON_(\d+)} {
}

符号\ d +表示“至少一个十进制数字”。

更新:

expect -re {PLAYER RON_(\d+)} {
    set playerNumber $expect_out(1,string)
    set playerGroup [expr {$playerNumber / 10}]
    switch -- $playerGroup {
        8 { puts "80-89" }
        9 { puts "90-99" }
        10 { puts "100-109" }
    }
}

如果我们有匹配,那么playerNumber将是RON_ playerGroup 之后的数字。

答案 1 :(得分:1)

从联系手册:

  

如果一个进程产生输出“abbbcabkkkka \ n”,结果为:

expect -indices -re "b(b*).*(k+)"
     

好像执行了以下语句:

set expect_out(0,start) 1
set expect_out(0,end) 10
set expect_out(0,string) bbbcabkkkk
set expect_out(1,start) 2
set expect_out(1,end) 3
set expect_out(1,string) bb
set expect_out(2,start) 10
set expect_out(2,end) 10
set expect_out(2,string) k
set expect_out(buffer) abbbcabkkkk

所以,对于以下正则表达式......

    -re "PLAYER: (RON)_(\[0-9])(\[0-9]+)"

......你可以这样做:

    if {[info exists expect_out(1,string)]} {
        switch -- $expect_out(1,string) {
            case "9":
                // ...
            case "8":
                // ...
            case "7":
                // ...
        }
    }

同样,您可以通过查看[info exists expect_out(2,string)]来查看“额外”数字。