[SP-pm] Autenticador Squid em Perl
Luis Motta Campos
luismottacampos em yahoo.co.uk
Quinta Junho 5 07:53:28 PDT 2008
Fernando Oliveira wrote:
> # Não seria melhor assim, p/ possibilitar senhas com espaço?
> my @userPass = split / /;
> my $user = $userPass[0];
> my $password = join " ", @userPass[1 .. $#userPass];
Hum. Senhas podem ter espaços. Certo, mudança de estratégia. Nada de
usar split().
#!/usr/bin/perl
use strict;
use warnings;
use IO::Handle;
STDOUT->autoflush(1);
STDERR->autoflush(1);
# implement your password validation here
sub is_valid;
while (<>) {
# captura um username (sem espaços, seguido de um
# espaço, seguido de qualquer coisa ( a senha).
my ( $user, $password ) = m{^(\S+)\s(.+)$};
print "ERR\n" unless $password; # do not accept empty
print "OK\n" if is_valid( $user, $password );
}
__END__
Putamplexos!
--
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}
Mais detalhes sobre a lista de discussão SaoPaulo-pm