perl - 间歇性第一次迭代失败但第二次迭代通过

Question

相同的命令在第一次迭代中失败，但在第二次迭代中通过。有时它会在两个迭代中传递。$ssh是 的对象Net::SSH::Expect。知道这种奇怪的行为吗？

$ssh = Net::SSH::Expect->new(
                    host => "$host",
                    password => "$pass",
                    user => "$id",
                    raw_pty => 1,
                    timeout => 50
                    );

代码片段：

&Test("Create exports on Sonas------ No Kerberos");
$no_of_exports=2;
my $fs = "/ibm/gpfs0/";
while($no_of_exports)
{
    my $share_name = &get_share_name();
    my $path="$fs" . "$share_name";

    $cmd="ssh mgmt001st001 mkexport $share_name $path --nfs 'client002\\\\(rw,no_root_squash\\)'";
    print "CMD: $cmd";
    $out=$ssh->exec("$cmd");
    print $out;
    --$no_of_exports;
}

输出：

Test 02 : Create exports on *Sonas*------ No Kerberos

CMD: ssh mgmt001st001 mkexport kas41535108 /ibm/gpfs0/kas41535108 --nfs 'client002\\     (rw,no_root_squash\)'

--nfs 'client002\\(xport kas41535108 /ibm/gpfs0/kas41535108 
> rw,no_root_squash\)'
 bash: -c: line 0: syntax error near unexpected token `('
 bash: -c: line 0: `mkexport kas41535108 /ibm/gpfs0/kas41535108 --nfs client002\\('
 [root@ganesha36 ~]# 
 [root@ganesha36 ~]# 
CMD: ssh mgmt001st001 mkexport kas219760489 /ibm/gpfs0/kas219760489 --nfs 'client002\\  (rw,no_root_squash\)'
89 --nfs 'client002\xport kas219760489 /ibm/gpfs0/kas2197604 
> \(rw,no_root_squash\)'
EFSSG0019I The export kas219760489 has been successfully created.
EFSSG1000I The command completed successfully.

Answer 1

错误信息就在那里。Bash 令人窒息，因为(令牌出乎意料。您需要在有四个反斜杠的地方再添加两个反斜杠

$cmd="ssh mgmt001st001 mkexport $share_name $path --nfs 'client002\\\\(rw,no_root_squash\\)'";

变成

$cmd="ssh mgmt001st001 mkexport $share_name $path --nfs 'client002\\\\\\(rw,no_root_squash\\)'";