perl - Perl脚本-从管道ssh shell 将STDOUT打印到文件中

Question

我处于无法加载外部软件的环境中。我们没有Net::SSH，我无法加载它。我使用ssh键和管道ssh滚动了自己的代码。我现在可以在远程服务器上运行任何命令，而无需手动登录和键入命令，但是我试图捕获自己服务器上的输出。由于使用管道 shell ，我无法将屏幕输出捕获到文件中。

这是非常粗糙的通用代码:

#!/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地址，每行一个。

它可以将rpm -qa输出到屏幕，但是我无法将输出捕获到$ OUT文件句柄中。我只是不想在这个角落附近，我知道我真的很接近实现它。

Answer 1

您确定为此需要所有perl吗？基本的for循环怎么样？如果在本地计算机上运行命令“ssh $ip rpm -qa”，则输出将转到标准输出，您可以使用它执行任何操作。

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

或全部一行:

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