Perlスクリプト - パイプされたsshシェルからのSTDOUTをファイルに出力します。

Question

ソフトウェアの外部に読み込めない環境です。私たちはNet :: SSHを持っておらず、ロードできません。私はsshキーと配管sshを使って自分自身を巻いた。手動でログインして入力することなくリモートサーバー上の任意のコマンドを実行できますが、自分のサーバーで出力をキャプチャしようとしています。私は、パイプ出力されたシェルのためにスクリーン出力をファイルに取り込むのに問題があります。

ここでは非常にラフな汎用コードです：この場合

#!/usr/bin/perl -w 
## 
  
my ($ip)        = @ARGV; 
my $rpm_logfile = "rpms"; 
  
print "The IP file is $ip\n"; 
  
open(my $IN, "<", $ip) || die "Could not find filename $ip $!"; 
open(my $OUT, ">>", $rpm_logfile) || die "Could not open file $rpm_logfile $!"; 
  
while (<$IN>) { 
  chomp; 
  my $my_ip = $_; 
  
  if (not defined $my_ip) { 
    die "Need an IP after the command.\n"; 
  } 
  # ssh key was set up, so no password needed 
  open my $pipe, "|-", "ssh", "$my_ip", or die "can't open pipe: $!"; 
  
  # print the machine IP in the logfile 
  # and pretty print the output. 
  print $OUT "$my_ip \n***************\n"; 
  
  # run the command on the other box via the ssh pipe 
  print {$pipe} "rpm -qa"; 
  
}; #end while INFILE 
  
close $IN; 
close $OUT; 

@ARGVは、その中のIPアドレスを持つテキストファイルを1行に1つずつです。

rpm -qaを画面に出力するように機能しますが、その出力を$ OUTファイルハンドルに取り込むことができません。私はこのコーナーの周りを考えていないだけで、私は本当にそれを得ることに近いと知っています。

Answer 1

本当にこのすべてのperlが必要ですか？基本的なfor-loopはどうでしょうか？あなたのローカルマシンでコマンド "ssh $ip rpm -qa"を実行すると、出力は標準出力に送られ、好きなように何でもできます。

1行に

$ for ip in `cat iplist.txt` 
> do 
> echo -e "${ip}\n----------------" 
> ssh $ip rpm -qa 
> echo "++++++++++++++++" 
> done 

または全て：Perl用として

(for ip in `cat iplist.txt`; do echo -e "${ip}\n----------------" ; ssh $ip rpm -qa ; echo "++++++++++++++++"; done) > rpms