Poe :: Componente :: Genérico :: Net :: SSH2

Poe :: componente :: generic :: net :: ssh2 é um componente PoE que fornece acesso não bloqueador à rede :: ssh2.
Baixe Agora

Poe :: Componente :: Genérico :: Net :: SSH2 Classificação e resumo

Propaganda

  • Rating:
  • Licença:
  • Perl Artistic License
  • Preço:
  • FREE
  • Nome do editor:
  • Philip Gwyn
  • Site do editor:
  • http://search.cpan.org/~gwyn/

Poe :: Componente :: Genérico :: Net :: SSH2 Tag


Poe :: Componente :: Genérico :: Net :: SSH2 Descrição

Poe :: Componente :: Genérico :: Net :: SSH2 é um componente PoE que fornece acesso não bloqueador à rede :: ssh2. Poe :: genérico :: net :: ssh2 é um componente PoE que fornece acesso sem bloqueio à rede :: ssh2.synopsis usar poe :: componente :: genérico :: net :: ssh2; Meu $ ssh = poe :: componente :: genérico :: net :: ssh2-> criar (alias => 'my-ssh', verbose => 1, debug =>> 0); meu $ canal; Poe :: Session-> Create (Inline_States => {{_start => sub {$ poe_kernel-> atraso ('conectar', $ n);}, connect => sub {$ ssh-> conectar ({event => 'conectado '}, $ Host, $ porta);}, conectado => sub {$ ssh-> auth_password ({event =>' Login '}, $ user, $ senha);}, error => sub {my ($ REP , $ CEE, $ NAME, $ ERROR) = @_ ; die "erro $ Nome (código $) $ erro";}, login => sub {my ($ OK) = @_ ; a menos que ($ ok) {$ ssh-> erro ({event => 'error', wantarray => 1}); retorno;} $ poe_kernel-> rendimento ('cmd_do' );}, ################ cmd_do => sub {$ ssh-> cmd ({event => 'cmd_Output', wantarray => 1}, "ls -l" ); retorno;}, cmd_Output => sub {my ($ REP, $ STDOUT, $ stderr) = @_ ; advertir "Conteúdo do diretório inicial no $ host: n $ stdoutn"; $ poe_kernel-> rendimento ('exec_do');}, exec_do => sub {$ ssh-> exec_running ({event => 'exec_running', wantarray => 0}, "gato -> $ file", stdoutevent => 'exec_stdout ', Stderrevent =>' EXEC_STRODRR ', fechadovent =>' exec_closed ', erforevent =>' exec_error ');}, exec_running => su b {my ($ REP, $ ch) = @_ ; # Mantenha o canal vivo $ canal = $ ch; $ Canal-> Escreva ({}, "Conteúdo do arquivo"); $ canal-> send_eof ({}); }, Exec_Error => Sub {MEU (código $, $ nome, $ string) = @_ ; Die "Erro: $ NAME $ string"; }, exec_stornr => sub {my ($ text, $ bytes) = @_ ; morrer "stderr: $ text"; Retorna; }, EXEC_STDOUT => Sub {My ($ text, $ bytes) = @_ ; avisar "stdout: $ text"; Retorna; }, exec_closed => sub {undef ($ canal); $ ssh-> desligamento; },}); Requisitos: · Perl.


Poe :: Componente :: Genérico :: Net :: SSH2 Software Relacionado

Sobre nós