nao tenho certeza mas deveria ser
if ($FORM{entrada_form} eq $lines[$i])
ou
if ($FORM{entrada_form} eq $line) ## sem os ''
t+
/"\
\ /
X ASCII RIBBON CAMPAIGN - AGAINST HTML MAIL
/ \ CAMPANHA DA FITA ASCII - CONTRA MAIL EM HTML
Linux ... a nice place to live
*******************************************
* Alex Eduardo Chiaranda *
* mail: [EMAIL PROTECTED] *
* [EMAIL PROTECTED] *
* [EMAIL PROTECTED] *
* Pagina => http://www.eep.br/~aechiara *
* ICQ => UIN 13070511 *
* 3o Ano de Ciencia da Computacao *
* Escola de Engenharia de Piracicaba *
* Piracicaba - SP *
*******************************************
On Tue, 30 Nov 1999, jefferson S.A 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
>
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.
�������������
