Authenticação [RESOLVIDO]
1. Authenticação [RESOLVIDO]
sayde
(usa Outra)
Enviado em 06/06/2016 - 18:51h
script básico de autenticação se enviar uma key contida no keys.txt continua o programa está funcionando mais acontece o seguinte algumas solicitações são respondidas e outras acabam não sendo respondidas como faria pra ficar mais rápido o código para responder todas?o código ficou assim
my $file = './keys.txt';
open my $fh, '<', $file or die $!;
my @keys;
while ( my $line = readline $fh ) {
my ( $keys, $comment ) = split /\s*#\s*/, $line, 2;
push @keys, $keys;
}
close $fh;
my $args->{individualkey} = 'teste'; #Simulação do envio da key que será remoto
if ( ! grep { $_ eq $args->{individualkey} } @keys ) {
print "Key invalida \n";
return $self;
}