リモートで実行されたコマンドをperlで期待通りに出力する

Question

私はパスワード変数$pwとコマンド変数$cmdを持っています。私はback-tick
を使用してコマンドを実行した場合

$pw=UNIX password of a remote machine. 

$cmd=Command to be executed in the remote machine. 

は、今私は出力変数に何らかの値を取得することができます。

私は同じコマンドを実行する場合は、私は同じを達成するために期待しています。私は、コマンドの出力を変数に期待通りに走らせる方法を意味します。

は機能が似ている期待の私：

sub expt($$){ 
my $cmd; 
my $timeout; 
    ($cmd, $pw)=@_; 
$expect = Expect->new; 
$expect->raw_pty(1); 
printDebug("Running the command under expt"); 
$expect->spawn($cmd) 
    or die "Cannot spawn $cmd: $!\n"; 
$expect->expect($timeout, 
      [ qr/password:/i, #/ 
       sub { 
        my $self = shift; 
        $self->send("$pw\n"); 
        exp_continue; 
       } 
      ], 
      [qr/Are you sure you want to continue connecting \(yes\/no\)?/ 
       , sub { my $self = shift; 
            $self->send("yes\n"); 
            exp_continue; }], 
      [qr/Unix password \(user\):/ 
       , sub { my $self = shift; 
            $self->send("pw\n"); 
            exp_continue; } 
      ],      
       ); 

$expect->soft_close(); 
    return 0;    
} 

そして私は、私は、リモート・ホストでスクリプトを実行することができています。これにより

expt($cmd,$pw); 

のような関数を呼び出していますが、私の要件がにありますリモートホストの出力をローカル変数に格納します。

Answer 1

なぜ使用しないNet::SSH::Expect？これは、第一の方法により近いでしょう：あなたは「単なる」そのような何かを実行する必要があります。

my $ssh = Net::SSH::Expect->new (
     host => "myserver.com", 
     user => 'myuser', 
     raw_pty => 1 
    ); 
$ssh->run_ssh() or die "SSH process couldn't start: $!"; 
($ssh->read_all(2) =~ />\s*\z/) or die "where's the remote prompt?" 
$ssh->exec("stty raw -echo"); 
my $output = $ssh->exec($cmd); 

は、Net::SSH::Expectポッドのドキュメントを見てください、それは非常に広範です。