向后查看功能

robot_chen

在Perl5 中支持向后查看功能. 比如 (?<!Not) Connected 就是匹配在 Connected前没有Not 这个词的字串.但是好象这个功能并不是所有的语言工具都只持,在Tcl Tk中就不能通过. 如果只使用基本的正则表达是,怎样才能实现这个功能呢?
[^N][^o][^t] Connected 当然可以,但是好象太笨了点. 还有什么好方法可以实现这个功能吗?

waker

好像问过了吧？
expect {
"not connect" {puts fail}
"connect" {puts ok}
}

干嘛非要用regexp?

robot_chen

我只是举一个例子来说明这个问题,其实我的脚本很多情况下都会遇到这个问题,有时是(?<!Not) Connected ,有时又是 (?<!Default) Window 等等. 在多种情况下就不好使用你说的那种列举的方法,所以我就想找一个通用的方法.

waker

那你就举个“在多种情况下就不好使用”的实例来研究一下
每个工具都有自己的特色,perlreg是对reg进行了增强，我想可以理解增强是什么意思吧？

robot_chen

就是研究了一阵子,没有什么结果啊,所以问问各位大侠有什么好方法? 举一个详细的例子. 比如:
我运行一个命令之后,在屏幕上会打出一些窗口的名字:
Default Window
Log Window
Error Window
Para Window
...............


运行另一些命令,上面的一些窗口就不应该在屏幕上打出来. 比如
运行 Com1 ,Default Window 不应该被打出来
运行 Com2 ,Log Window不应该被打出来
运行 Com3 ,Error Window不应该被打出来
..........

然后我就用expect 脚本去检查运行相应命令后 Default Window 或Log Window... 是否没有被打印出来?

我的判断语句是

expect {
      -re "$rstStr" {
        puts "OK\n\r"
        }
        timeout {
        puts "Failed\n"
        }
   
}

所以问题就是 $rstStr 该如何写?

[ 本帖最后由 robot_chen 于 2006-5-24 16:29 编辑 ]