期望忽略模式匹配并且不退出

Question

我是 expect 的新手，我很困惑。它与一种模式完美配合，但当出现第二种情况时，它会完全忽略退出。首先，这是我的代码。

#!/usr/bin/expect

#Usage migration_test.xpct <ssh_password> <vmname> <no_migraciones>

set timest [ timestamp -format %Y-%m-%d_%H-%M ]
set vmname [lindex $argv 1]

log_file migtest_${vmname}_${timest}.log ;

set password [lindex $argv 0]
set num [lindex $argv 2]
set failureMsg "Status: Failure\n\r"
set timeout 60

spawn ssh admin@localhost -p 10000

expect "yes/no" {
    send "yes\r"
    expect "*?assword" { send "$password\r" }
    } "*?assword" { send "$password\r" }

for {set i 0} {$i < $num} {incr i 1} {
    expect "OVM> " {
        send "show Vm name=$vmname\r"
        expect {
            $failureMsg { }
            -re "Status = Running\n\r" {
                exp_continue
            }
            -re "Server = .*? \\[(.*?)(1|2)?\\]\n\r" {
                set destserver $expect_out(2,string);
                if { $destserver == 1 } {
                    send_user "\n\nMIGRATION [ expr $i+1 ] of $num\n\n"
                    send "migrate Vm name=$vmname destServer=serv_prod02\r"
                    expect {
                        -re "JobId: (.*?)\n\r" {
                            set jobid $expect_out(1,string);
                            send "show Job id=$jobid\r";
                            expect {
                                -re "Command:(.*?)\n\r" { send_user "\n\nWaiting 30secs before next migration\n\n";
                                sleep 30; }
                            }
                        }
                        -re "Status: Failure\n\r" { send_user "\n\nExiting\n"; exit 1 }
                    }
                } else {
                    send_user "\n\nMIGRATION [expr $i+1] of $num\n\n"
                    send "migrate Vm name=$vmname destServer=serv_prod01\r"
                    expect {
                        -re "JobId: (.*?)\n\r" {
                            set jobid $expect_out(1,string);
                            send "show Job id=$jobid\r";
                            expect {
                                -re "Command:(.*?)\n\r" { send_user "\n\nWaiting 30secs before next migration\n\n";
                                sleep 30; }
                            }
                        }
                        -re "Status: Failure\n\r" { send_user "\n\nExiting\n"; exit 1 }
                    }
                }
            }
        }
    }
}

send "exit\r"
expect eof

当它到达"migrate vm" 部分时，问题就来了。这是我要发送到 CLI（准确地说是 oracle ovm cli）的作业，该作业可能会失败或成功。我想在成功时打印作业详细信息，但如果作业失败则完成整个执行（因为它已经显示了原因并且我不必扩展作业详细信息）。

这是成功作业的输出结果：

MIGRATION 5 of 12

migrate Vm name=slestest_temp_share_vm destServer=serv_prod01
Command: migrate Vm name=slestest_temp_share_vm
destServer=serv_prod01
Status: Success Time: 2016-04-13 10:45:24,174
JobId: 12345678978
OVM> show Job id=12345678978
Command: show Job id=12345678978
Status: Success Time: 2016-04-13 10:45:24,188
Data:

Run State = Success
Summary State = Success
Done = Yes
Summary Done = Yes
Job Group = No
Username = admin
Creation Time = Apr 13, 2016 10:44:45 am
Start Time = Apr 13, 201 10:44:45 am
End Time = Apr 13, 2016 10:45:23 am
Duration = 37s
Id = 12345678978 [Migrate Vm: slestest_temp_share_vm to Server: serv_prod01]
Name = Migrate Vm: slestest_temp_share_vm to Server:serv_prod01
Description = Migrate Vm: slestest_temp_share_vm to Server: serv_prod01 Locked = false OVM>

下次迁移前等待 30 秒

这是失败的工作的样子：

MIGRATION 4 of 12

migrate Vm name=slestest_temp_share_vm destServer=serv_prod01
Command: migrate Vm name=slestest_temp_share_vm destServer=serv_prod01
Status: Failure
Time: 2016-04-13 11:31:08,819
JobId: 1460564963372
Error Msg: Job failed on Core: OVMAPI_5001E Job: 1460564963372/Migrate Vm: slestest_temp_share_vm to Server: serv_prod01/Migrate Vm: slestest_temp_share_vm serv_prod01, failed. Job Failure Event: 1460565064570/Server Async Command Failed/OVMEVT_00C014D_001 Async command failed serv_prod02. Object: slestest_temp_share_vm, PID: 1724,
Server error: Command: ['xm', 'migrate', '--live', '0004fb00000600009f354416bab38df6', '8.8.8.1'] failed (1): stderr: Error: ti

stdout: Usage: xm migrate

将域迁移到另一台计算机。

选项：

-h, --help 打印帮助。
-l, --live 使用实时迁移。
-p=端口号, --port=端口号
使用指定端口进行迁移。
-n=节点数, --node=节点数
在目标上使用指定的 NUMA 节点。
-s, --ssl 使用 ssl 连接进行迁移。
-c, --change_home_server
更改托管域的主服务器。

，在服务器上：serv_prod02，关联对象：0004fb00000600009f354416bab38df6 [2016 年 4 月 13 日星期三 11:31:04]

为什么Status: Failure被忽略了？此外，当发生这种情况时，它似乎跳过了循环的迭代，如果它在第 5 次，则显示 "Migration 7 of 12" 例如。

谢谢大家

Answer 1

我可以建议两件事，一是你可以重写代码以避免重复。其次，我认为您正在匹配模式末尾的两个 \n\r 。尝试单独使用 \n 或使用 \n?\r? 将匹配零个、一个或两个行结尾。

-re "Server = .*? \\[(.*?)(1|2)?\\]\n" {
    set destserver $expect_out(2,string);
    send_user "\n\nMIGRATION [ expr $i+1 ] of $num\n\n"
    if { $destserver == 1 } {
        send "migrate Vm name=$vmname destServer=serv_prod02\r"
    } else {
        send "migrate Vm name=$vmname destServer=serv_prod01\r"
    }

    expect {
        -re "JobId: (.*?)\n" {
            set jobid $expect_out(1,string);
            send "show Job id=$jobid\r";
            expect {
               -re "Command:(.*?)$" { 
                  send_user "\n\nWaiting 30secs before next migration\n\n";
                  sleep 30; 
               }
             }
         }                 
         -re "Status: Failure\n" { send_user "\n\nExiting\n"; exit 1 }
    }
}

Answer 2

嗯，经过一些测试，我发现了问题。看来我不明白超时是如何工作的。每次执行失败的迁移都会超过超时。

这对我来说并不明显，因为虽然超过了超时，但脚本仍然一直在等待答案并打印出来，只有 none 我期望得到的模式正在被检查.

解决方案是使用 "timeout" 命令或将其设置得更高。我后来做了，现在一切都很好运行。

期望忽略模式匹配并且不退出

Expect ignoring pattern matching and not exiting

linux

shell

tcl

expect