Re: [perl] Senhas - Resposta!

[Luiz Ot�vio Olinger Momm]

Coisas novas...

(/^#/)      and next LINE;
??? Nunca vi isso, o que significa ? Se for possivel, podes comentar ?

PlaY_bacK wrote:

 
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

--
Abracos, Luiz Otavio
-----------------------