我处于无法加载外部软件的环境中。我们没有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文件句柄中。我只是没想到这个角落,我知道我真的很接近它。
答案 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