tcl - 期待脚本

Question

我正在尝试匹配日志文件中包含“”的文本。但它不匹配。我明白“”对于TCL/Expect有着特殊的意义。

因此我尝试了以下方法，但没有成功。

expect -ex {
            "lp -c -demail -ot\\\"firstname_surname@gmail.com\\\" /usr/local/spool/pf"
            {
               incr logged
               send_user "\r\n LOGGED #4, $logged \r\n"
            }
            timeout

我尝试使用 、\和\\但还没有成功。

我的日志文件包含以下行，

exec [lp -c -demail -ot"firstname_surname@gmail.com"  /usr/local/spool/pf/context/ABC001-1209236.mime]

我需要匹配该行。

Answer 1

使用{}引号，类似于shell的单引号。另外，Tcl 对换行符很敏感，因此您必须将 block 的左大括号放在上一行

expect {
    {lp -c -demail -ot"firstname_surname@gmail.com" /usr/local/spool/pf} {
       incr logged
       send_user "\r\n LOGGED #4, $logged \r\n"
     }
     timeout
}