Ola Francisco
obrigado pela ajuda, mas o problema continua mesmo vc digitando a senha
correta o programa passa direto e informa senha errada, parece que ele s�
executa o else. tem mais alguma ideia do que possa esta ocorrendo
jefferson
-----Mensagem original-----
De: Francisco Lopes <[EMAIL PROTECTED]>
Para: [EMAIL PROTECTED] <[EMAIL PROTECTED]>
Data: Ter�a-feira, 30 de Novembro de 1999 00:48
Assunto: Re: [perl] Senhas
Tenta o c�digo abaixo:
open (SENHAS, "$passfile") || &open_error($passfile);
@lines = <SENHAS>;
close (SENHAS);
foreach $line (@lines) {
if ($FORM{'entrada_form'} eq $line)
print "senha certa";
} else {
print "senha errada";
}
_______________________
Francisco Lopes
UIN: 17364815
Email: [EMAIL PROTECTED]
-----Mensagem Original-----
De: jefferson S.A <>
Para: <[EMAIL PROTECTED]>
Enviada em: Ter�a-feira, 30 de Novembro de 1999 00:55
Assunto: [perl] Senhas
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
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
http://www.mrweb.com.br/perl/
=======================================
>>No site da lista, voce tera tudo sobre PERL,
>>LINUX, PHP, ASP e informacoes, cadastramento
>>e descadastramento da Lista.
=======================================
