Re: [perl] Senhas - Resposta!

[PlaY_bacK]

open (DB, "<$passfile") || &open_error($passfile);
$found = 0;

LINE: while (<DB>)
        {
        (/^#/)      and next LINE;
        (/^\s*$/)   and next LINE;
        chomp;     
        @data = split(/\|/,$_);
        if ($data[campo_da_senha] eq $FORM{'entrada_form'})
                {
                        $found = 1;
                }
                if ($found)
                {
                        last LINE;
                }
        }

        if ($found)
                {
                        print "senha certa";
                }
                else
                {
                        print "senha errada";
                }


E isso ai ! ;)


At 00:55 30/11/99 -0200, you wrote:

Ola Galera
 
 Estou tentando fazer um script simples de senha que so possui uma entrada e checa se existe o valor digitado num bco de dados, porem como estou come�ando estou levando um coro na seguinte parte do codigo
 
open (SENHAS, "$passfile") || &open_error($passfile);
@lines = <SENHAS>;
close (SENHAS);
foreach $line (@lines)
 
if ($FORM{'entrada_form'} eq $line) {
 
 print "senha certa";
exit;
} 
}
print "senha errada";
exit;
 
o bco abre direito porem  no IF mesmo digitando uma senha correta o programa passa direto e informa senha  errada, acho que deve ser alguma coisa com o IF.
 
  Se algum tiver alguma ideia ficarei grato.
 
 
              um abra�o a todos
                                                            Kid