2012-07-24 166 views
4

第一次迭代中相同的命令失败,但传入第二次迭代。有时它会通过两次迭代。 $sshNet::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\\(' 
[[email protected] ~]# 
[[email protected] ~]# 
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. 
+0

你实例化你的Net :: SSH ::期待'raw_pty'模式对象? – DavidO 2012-07-24 07:19:56

+1

是的,现在在我的问题中也添加了这个部分。 – Joe 2012-07-24 07:21:51

+1

为什么在括号之前有'\\\\'?除非我错过了一些东西,否则应该是'\\'(没有空格)。 – 2012-07-24 07:27:15

回答

0

该错误消息是在那里。 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\\)'"; 
相关问题