1

$ssh は Net::SSH::Expect オブジェクトです。シナリオは、ローカル マシンからテスト サーバーに ssh する必要があるようなものです。テストサーバーから、テスト中の他のサーバーにsshしてコマンドを実行できます。したがって、$ssh ハンドルはテスト サーバー用です。現在、テストサーバーから他のマシンに ssh を実行し、mkexport を実行しています。

 while($no_of_exports)
{
    my $share_name = &get_share_name();
    my $path="$fs" . "$share_name";

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

 Output : 
  [root@ganesha36 ~]# 
  CMD: ssh mgmt001st001 mkexport kas142818597 /ibm/gpfs0/kas142818597 --nfs "*\(rw,no_root_squash\)"
 97 --nfs "*\(rw,no_rxport kas142818597 /ibm/gpfs0/kas1428185 

コマンドの実行が perl スクリプトから失敗していますが、コマンド ラインから同じコマンドを実行すると、次のコマンドが実行されます。以下は、テスト サーバーから直接実行している同じコマンドです。

   [root@ganesha36 ~]#  ssh mgmt001st001 mkexport kas327134640 /ibm/gpfs0/kas327134640        --nfs "*\(rw,no_root_squash\)"
  EFSSG0019I The export kas327134640 has been successfully created.

EFSSG1000I コマンドは正常に完了しました。

スクリプトの行は次のとおりです。

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

出力は次のとおりです。

CMD: ssh mgmt001st001 mkexport kas522199075 /ibm/gpfs0/kas522199075 --nfs '\*\(rw,no_root_squash\)'
75 --nfs '\*\(rw,no_xport kas522199075 /ibm/gpfs0/kas5221990 
> root_squash\)'
 EFSSF1156A An error occurred in NFS configuration. The client syntax cannot be parsed.     See "man exports" for help. Cause: *(rw,no_
bash: line 1: root_squash): command not found

* 正常に動作するクライアント名に変更しました... しかし、何が問題なのですか *

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

CMD: ssh mgmt001st001 mkexport kas482978105 /ibm/gpfs0/kas482978105 --nfs "client002\\(rw,no_root_squash\)"
05 --nfs "client002\xport kas482978105 /ibm/gpfs0/kas4829781 
> \(rw,no_root_squash\)"
EFSSG0019I The export kas482978105 has been successfully created.
EFSSG1000I The command completed successfully.
4

1 に答える 1

1

$sshが Net::SSH::Expect オブジェクトであると仮定するとmkexport、コマンド ライン バージョンではリモート ホスト上で実行sshされますが、Perl バージョンではリモート ホスト上で実行されます。これにより、エスケープされていない が原因で問題が発生し*ます。

  • 余分なものを取り除きssh mgmt001st001ます。
  • \\の前に追加し*ます。
于 2012-07-23T18:17:49.577 に答える