Linux 期望忽略模式匹配而不退出

我是一个新使用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

#/usr/bin/expect
#使用迁移测试.xpct
设置时间戳[时间戳-格式%Y-%m-%d\uh-%m]
设置vmname[lindex$argv 1]
日志文件migtest{vmname}{timest}.log；
设置密码[lindex$argv 0]
设置数量[lindex$argv 2]
设置failureMsg“状态：失败\n\r”
设置超时60
繁殖sshadmin@localhost-第10000页
期望“是/否”{
发送“是”\r\n
应为“*？assword”{send“$password\r”}
}*？密码“{send”$password\r”}
对于{set i 0}{$i<$num}{incr i 1}{
期待“OVM>”{
发送“显示虚拟机名称=$vmname\r”
期待{
$failureMsg{}
-re“状态=正在运行\n\r”{
exp\u继续
}
-re“服务器=.*？\\[（.*？）（1 | 2）？\\\]\n\r”{
设置destserver$expect_out（2，字符串）；
如果{$destserver==1}{
发送\u用户“\n\n迁移[expr$i+1]的$num\n\n”
发送“迁移Vm名称=$vmname destServer=serv\u prod02\r”
期待{
-re“作业ID:（.*）\n\r”{
设置jobid$expect_out（1，字符串）；
发送“显示作业id=$jobid\r”；
期待{
-re“命令：（.*）\n\r“{send_user”\n\n在下次迁移之前等待30秒\n\n”；
睡眠30；}
}
}
-re“状态：失败\n\r”{send\u user”\n\n退出\n；退出1}
}
}否则{
发送\u用户“\n\n迁移[expr$i+1]的$num\n\n”
发送“迁移Vm名称=$vmname destServer=serv\u prod01\r”
期待{
-re“作业ID:（.*）\n\r”{
设置jobid$expect_out（1，字符串）；
发送“显示作业id=$jobid\r”；
期待{
-re“命令：（.*）\n\r“{send_user”\n\n在下次迁移之前等待30秒\n\n”；
睡眠30；}
}
}
-re“状态：失败\n\r”{send\u user”\n\n退出\n；退出1}
}
}
}
}
}
}
发送“退出\r\n”
预期eof

问题出现在“迁移vm”部分。这是我要发送到CLI（准确地说是oracle ovm CLI）的作业，作业可能失败，也可能成功。我希望在作业成功时打印作业详细信息，但如果作业失败，则完成整个执行（因为它已经显示了原因，我不必展开作业详细信息）

以下是成功作业的输出外观：

移徙5/12

迁移Vm name=slestest\u temp\u share\u Vm destServer=serv\u prod01
命令：migrate Vm name=slestest\u temp\u share\u Vm
destServer=serv\u prod01
状态：成功 时间：2016-04-13 10:45:24174
JobId:12345678978
OVM>显示作业id=12345678978
命令：显示作业id=12345678978
状态：成功时间：2016-04-13 10:45:24188
数据：

运行状态=成功
摘要状态=成功
完成=是
汇总完成=是
工作组=否
用户名=管理员
创建时间=2016年4月13日上午10:44:45
开始时间=2010年4月13日上午10:44:45
结束时间=2016年4月13日上午10:45:23
持续时间=37秒
Id=12345678978[将Vm:slestest\u temp\u share\u Vm迁移到服务器：serv\u prod01]
Name=将虚拟机：slestest\u temp\u share\u虚拟机迁移到服务器：serv\u prod01
Description=将Vm:slestest\u temp\u share\u Vm迁移到 服务器：serv_prod01 Locked=false OVM>

在下一次迁移之前等待30秒

下面是一份失败的工作的样子：

移徙4/12

迁移Vm name=slestest\u temp\u share\u Vm destServer=serv\u prod01
命令：migrate Vm name=slestest\u temp\u share\u Vm destServer=serv\u prod01
状态：失败
时间：2016-04-13 11:31:08819 JobId:146056493372
错误消息：Core上的作业失败：OVMAPI_5001E作业：146056963372/迁移Vm:slestest_临时共享\u Vm到服务器：serv_prod01/迁移Vm:slestest_临时共享\u Vm serv_prod01，失败。作业失败事件：1460565064570/服务器异步命令失败/OVMEVT_00C014D_001异步命令服务_prod02失败。对象：slestest\u temp\u share\u vm，PID:1724，
服务器错误：命令：['xm'，'migrate'，'--live'，'0004fb00000600009f354416bab38df6'，'8.8.8.1']失败（1）：stderr:error:ti

标准输出：用法：xm迁移

将域迁移到另一台计算机

选项：

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

，在服务器上：serv_prod02，与对象0004fb00000600009f354416bab38df6关联[Wed Apr 13 11:31:04 2016]

为什么忽略

状态：Failure

？此外，当这种情况发生时，它似乎跳过了循环的一次迭代，例如，如果它在第5次循环中，则会显示“迁移7/12”

---

谢谢大家

我可以建议两件事，一是你可以重写代码以避免重复。其次，我认为您正在匹配模式末尾的

\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 }
    }
}