| Script :: Remote Excute seus scripts sobre ssh (e passe dados ao longo) |
Baixe Agora |
Script :: Remote Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- Daisuke Maki
- Site do editor:
- http://search.cpan.org/~dmaki/
Script :: Remote Tag
Script :: Remote Descrição
Exceute seus scripts sobre SSH (e passe dados ao longo) Este é um pequeno hack estúpido que torna a execução de scripts remotamente um * bit * mais fácil. Por favor, note que isso é cheio de potenciais de segurança Gotchas. Nós geramos código na mosca. Isto é mau. Estamos basicamente fazendo um remoto eval (), o que é apenas ruim ruim. Não use este módulo se você espera que pessoas sem conhecimento mínimo sobre como esse tipo de sistema distribuído hacks funcionam. Asavador disseram que, para testes, isso poderia ser útil. Tudo que você precisa é de um conjunto de máquinas Habled SSH (você provavelmente deseja autenticação de chave pública, também) e dois scripts: o script que você deseja executar remotamente e um script que irá conduzir esses script (s) .Para executar um único Script em uma única máquina remota, simplesmente diga: use script :: Remote; Script :: Remote-> Novo (script => 'foo.pl', hostname => 'my.host.name') -> Executar (); se você quiser executar o mesmo script em vários hosts, você precisa contar Script :: controle remoto para não bloquear espera (), então você precisa usar o parâmetro No_wait: Meu $ script = 'foo.pl'; meus @scripts; meus $ Data = ...; # Alguns dados compartilhados foreach meu $ host (@Hosts) {My $ Remote = script :: Remote-> Novo (script => $ script, hostname => $ host, no_wait => 1,); $ Remote-> Executar (Data => $ Data); empurre @scripts, $ remote; } $ _-> wait_child para @scripts; Sinopse # CASE 1: caso simples # escrever um script primeiro (diga, foo.pl) Use rigoroso; Imprimir "Olá, mundo! \ n"; # Elasewhere, em um script de uso de arquivo diferente :: Remote; Meu $ Remote = script :: Remote-> Novo (script => 'foo.pl', hostname => 'some.host.com',); $ remote-> correr; #### Case 2: com dados #### use rigoroso; Imprimir "Olá, mundo a partir de $ config -> {myname} \ n"; $ remote-> Executar (variável => 'config', data => {myname => "daisuke maki"},); Requisitos: · Perl.
Script :: Remote Software Relacionado