[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