Net :: ssh :: espera Net :: ssh :: espera é um wrapper ssh para executar comandos remotos.
Baixe Agora

Net :: ssh :: espera Classificação e resumo

Net :: ssh :: espera Tag

Módulo Perl. controlo remoto embrulho ssh. comandos remotos Wrapper ssh.

Net :: ssh :: espera Descrição

Net :: ssh :: Espere é um wrapper ssh para executar comandos remotos. Net :: SSH :: Espere é um invólucro SSH para executar comandos remotos.synopsis Use Net :: SSH :: Esperar; # # Você pode fazer autenticação SSH com a senha do usuário ou sem ela. # # Fazendo uma conexão ssh com autenticação de senha # 1) construa o objeto My $ ssh = net :: ssh :: espera-> novo (host => "myserver.com", password => 'pass87word', usuário = > 'Bnegrao', RAW_PTY => 1); # 2) Logon para o servidor SSH usando essas credenciais. # Teste a saída de login para garantir que tivemos sucesso meu $ login_Output = $ ssh-> login (); if ($ login_Output! ~ / welcome /) O login falhou. Login Output foi $ login_Output "; } # - Agora você sabe que você está logado - # # Iniciando ssh sem senha # 1) execute o construtor my $ ssh = net :: ssh :: espera-> novo (host => "myserver.com", usuário = > 'Bnegrao', RAW_PTY => 1); # 2) Agora Inicie o processo SSH $ ssh-> run_ssh () ou morrer "o processo SSH não pôde iniciar: $!"; # 3) Você deve estar logado agora. Teste se você recebeu o prompt remoto: ($ ssh-> read_all (2) = ~ /> s * z /) ou morrer "Onde está o prompt remoto?" # - Agora você sabe que você está logado - # # Desativar as traduções do terminal e eco no servidor ssh # executando no servidor o comando stty: $ ssh-> exec ("stty raw -echo"); # Executa comandos arbitrários e imprima seus saídas # (incluindo o prompt remoto que começa no final) Meu $ ls = $ ssh-> Exec ("ls -l /"); Imprimir ($ ls); Meu $ OMS = $ ssh-> Exec ("Quem"); Imprimir ($ OMS); # Ao executar um comando que causa uma saída enorme, # permite obter a linha de saída por linha: $ ssh-> enviar ("encontrar /"); # Usando o envio () em vez de exec () minha $ linha; # Retorna a próxima linha, removendo-a do fluxo de entrada: enquanto (definido ($ line = $ ssh-> read_line ())) {Imprimir $ line. "N"; } # Dê uma olhada no que está imediatamente disponível no fluxo de entrada Imprimir $ SSH-> PEEK (0); # Você provavelmente verá o prompt remoto # O último leitura_line () no loop anterior não incluirá o prompt # Remote que aparece no final da saída, porque o prompt # não termina com um caractere 'n'. Então, vamos remover o pronto do restante # do fluxo de entrada: $ ssh-> comer ($ ssh-> peek (0)); # remove tudo o que estiver no fluxo de entrada agora # Nós também podemos iterar sobre a saída em pedaços, # imprimindo tudo o que está disponível em cada 1 segundo: $ ssh-> enviar ("encontrar / home"); meu pedaço de $; while ($ chunk = $ ssh-> peek (1)) {# grabs pedaços de saída cada 1 segundo $ ssh-> comer ($ pedaço); } # Agora vamos executar um comando interativo, como passwd. # Isso é feito combinando os métodos de envio () e espera () juntos: $ ssh-> Enviar ("passwd"); $ ssh-> espera por ('senha: s * z', 1) ou morrer "Senha '' '' '' não encontrado após 1 segundo"; $ ssh-> enviar ("curren_password"); $ ssh-> esperafor (': s * z', 1) ou morrer "prompt 'nova senha:' não encontrado"; $ ssh-> enviar ("new_password"); $ ssh-> esperafor (': s * z', 1) ou morrer "prompt" confirma nova senha: 'não encontrado "; $ ssh-> enviar ("new_password"); # Verifique se temos o prompt do sistema novamente. meu ($ beigh_match, $ match) = $ ssh-> espera por ('> s * z', 1); # WaitFor () em um contexto de lista Die "Passwd falhou. Passwd disse '$ antes_match'." a menos que ($ correspondência); # Fecha a conexão SSH $ ssh-> fechar (); este módulo é um invólucro para o executável SSH que está disponível no caminho $ do seu sistema. Use este módulo para executar comandos no servidor SSH remoto. Ele autentica com o usuário e senha que você passou no usuário de atributos do construtor e senha. Uma conexão SSH foi iniciada usando o método Connect () permanecerá aberto até que você chame o método fechado (). Isso permite executar quantos comandos quiser com o método EXEC () usando apenas uma conexão. Esta é uma abordagem melhor sobre outras implementações do Wrapper SSH, ou seja: net :: scp, net :: ssh e net :: scp :: Espere, que inicia uma nova conexão ssh cada vez que um comando remoto é emitido ou um arquivo é transferido. Ele usa o módulo Expect.pm para interagir com o servidor SSH. Um método get_expect () é fornecido para que você possa obter o objeto Interno de esperança conectado ao servidor SSH. Use isto somente se você tiver alguma necessidade especial que você não pode fazer com o método EXEC ().Este módulo foi inspirado na Net :: SCP :: espera http://search.cpan.org/~djberg/net-scp -Expect-0.12 / Expere.pm e por Net :: Telnet e alguns de seus métodos funcionam o mesmo que esses dois módulos. Requisitos: · Perl.

Net :: ssh :: espera Software Relacionado