Posso alterar o tipo de terminal usado para efetuar login através do Net :: SSH em perl?

Question

Quando eu faço o login em algum servidor específico através do Net :: SSH no perl (que eu não tenho acesso de administrador), recebo o seguinte erro:

 %SECURITY-SSHD-4-WARNING_LOGIN : The requested term-type '' is not supported 

(Eu também não quero mudar meu tipo de terminal permanentemente).

parte do meu código como abaixo,

 my $ssh = Net::SSH::Expect->new (
                host => "X.X.X.X", 
                user => 'bnegrao', 
                raw_pty => 1
  );
    eval
    {
         $ssh->login();
    };

É possível alterar o tipo de terminal apenas ao fazer o login através do Net :: SSH em perl?

    

Answer 1

O código perl está apenas rodando o ssh, que exporta TERM do ambiente, para que você possa apenas alterar o ambiente perl antes do login:

$ENV{TERM} = "vt100";
$ssh->login();

Se necessário, você pode salvá-lo primeiro e restaurá-lo imediatamente após a chamada de login.