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

时间:2016-09-15 04:20:55

标签: perl shell ssh pipe stdout

我处于无法加载外部软件的环境中。我们没有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地址,每行一个。

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

1 个答案:

答案 0 :(得分:3)

你确定你需要所有的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