SSH with file handle

[mrjazz]

The following seems to be pretty simple (but obviously not for me as I am not a Perl expert) ...
I want to collect the output from remote hosts and store it into a variable.
I must not use any CPAN modules in this environment.
What I have so far is the following:

open(my $ssh, "| ssh -T $onlineon");
print $ssh "/usr/sbin/vxassist -g $dg listtag  | $awk -F= '/activebase/ { print \$2 }'";
close($ssh) or die "$!";

I am connecting to the host which is stored in $onlineon and then want to store the output of the print line into another variable.
Problem: I am getting the right value back but cannot store it.

Thanks,
mrjazz

 

[max1x]

You're printing the data, but not storing it.

 

[MikeLacey]

Try something like this

open(my $ssh, "| ssh -T $onlineon >a_file 2>&1");
print $ssh "/usr/sbin/vxassist -g $dg listtag  | $awk -F= '/activebase/ { print \$2 }'";
close($ssh) or die "$!";
open(A_FILE,"a_file");
while(<A_FILE>){
  # process each line from the file, just print it in this example
  print $_; # $_ holds each line from the file in turn
}
close(A_FILE);