Como posso usar o espere inserir uma senha para um script Perl?
Pergunta
Desejo inserir automaticamente uma senha enquanto executa um script de instalação. Invocei o script de instalação usando os backsticks no Perl. Agora meu problema é como digito essa senha usando expect
ou alguma outra coisa?
my $op = `install.sh -f my_conf -p my_ip -s my_server`;
Quando o acima é executado, uma linha de senha é impressa:
Enter password for the packagekey:
Na linha acima, desejo inserir a senha.
Solução
usar Espera.pm.
Este módulo é especialmente adaptado para o controle programático de aplicativos que exigem feedback do usuário
#!/usr/bin/perl
use strict;
use warnings;
use Expect;
my $expect = Expect->new;
my $command = 'install.sh';
my @parameters = qw(-f my_conf -p my_ip -s my_server);
my $timeout = 200;
my $password = "W31C0m3";
$expect->raw_pty(1);
$expect->spawn($command, @parameters)
or die "Cannot spawn $command: $!\n";
$expect->expect($timeout,
[ qr/Enter password for the packagekey:/i, #/
sub {
my $self = shift;
$self->send("$password\n");
exp_continue;
}
]);
Outras dicas
Se o programa lê a senha da entrada padrão, você poderá apenas colocá -la em:
`echo password | myscript.sh (...)`
Caso contrário, espere ou ptys.
Você pode salvar a senha em um arquivo e, ao executar o script de instalação, leia a senha do arquivo.
Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow