#!/usr/bin/perl -W
use SSH::Command;
$cmdln = `grep $ARGV[0] list.txt`;
chomp($cmdln);
($cmdhost,$user,$pass) = split(':',$cmdln);
$p = `echo $pass|base64 -d`;
chomp($p);
$cmdlog = ssh_execute(
host => $cmdhost,
username => $user,
password => $p,
command => "$ARGV[1]",
);
print $cmdlog;
print "\n";
On 13 February 2018 at 16:36, Chas. Owens <chas.ow...@gmail.com> wrote:
> Can you simplify your code to a short program that had the issue and post
> it? Often the act of shortening the program reveals the problem on its own.
>
> On Mon, Feb 12, 2018, 22:37 Lancelot Mak <lancelot....@gmail.com> wrote:
>
>> Hi all,
>> I am using SSH::Command module to do ssh stuff but it does not return
>> full reply from server. Any clue? It just returns part of it. Is it
>> timeout? or what?
>> Thanks.
>>
>>
>> --
>> --
>> Lancelot Mak
>>
>
--
Lancelot Mak
----------------------------------------------------------------
http://facebook.com/honey.mak
Used to compete
Lord to complete
從前輸贏在心頭
如今一切在主手
Amen
