use <span style="font-weight: bold;">eq</span> quando for comparar strings<br>nao sei pq nao usar regex mas pra validar palavras usaria /[^_\D\w]+/<br>para ver se a palavra existe faria /$palavra/ ou eq mesmo em kd elemento do array
<br>acho q vc nao ta percorrendo o array =x<br><br><div><span class="gmail_quote">Em 23/10/06, <b class="gmail_sendername">Diego Mendes Teixeira</b> <<a href="mailto:diegom@lcc.ufmg.br">diegom@lcc.ufmg.br</a>> escreveu:
</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div>Pessoal, <br><br>Eu também estou precisando fazer essa busca em arquivo, mas nao posso usar expressão regular.
<br><br>Tenho que armazenar o texto em um array e depois comparar as palavras da linha do arquivo com a palavra que o usuario digitou, se na linha tiver a palavra eu imprimo a linha.<br><br>Eu pensei na seguinte logica, porem está imprimindo todas as linhas:
<br><br>[codigo]<br><br> $palavra = $arguments[1];#a palavra é recuperada do array<br><br> if (/\D$palavra\D/) {#testa se os caracteres digitados são letras<br> print "Digite caracteres de palavra (a-z, A-Z)";
<br> }<br><br> $linha_numero = 0;#linha da ocorrencia da palavra<br> $achei = 0; #se ocorrencia da palavra<br> open( ARQUIVO, "texto.txt" ) || die "Erro ao abrir arquivo
texto.txt\n"; #abre o arquivo que sera lido<br> while ( $linha = <ARQUIVO> ) { #laço que carrega as linhas do arquivo<br> ++$linha_numero;#variavel que guarda a linha que esta sendo lida
<br> my @array = $linha; #carrega a linha lida no array<br> my $indice; #indice do array<br> if ($array[indice] == $palavra) { #testa se a palavra nesta na linha
<br> print "Linha:".$linha_numero."\n";#imprime a linha caso tenha encontrado a palavra<br> $achei = 1; #seta achei indicando que pelo menos uma ocorrencia da palavra foi encontrada
<br> }<br> }<br> close ( ARQUIVO ); #fecha o arquivo<br><br> if ($achei == 0){ #testa se achei foi setado<br> print "Não foi encontrado nenhuma ocorrência da palavra: ".$palavra."\n\n";
<br> }<br><br>[fim_codigo]<br><br>Aguardo uma ajuda.<br><br>Vlw<br><br>Diego<br><div><br><br>.============================================.<br> Diego Mendes Teixeira - <a href="mailto:diegom@lcc.ufmg.br" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
diegom@lcc.ufmg.br</a> <br> Setor de Desenvolvimento - UFMG - LCC/CENAPAD <br> Cel: +55(31)8842-9951 - Tel(trab): +55(31)34994910 <br>'============================================'<br></div></div>
<br>_______________________________________________<br>Cascavel-pm mailing list<br><a onclick="return top.js.OpenExtLink(window,event,this)" href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a onclick="return top.js.OpenExtLink(window,event,this)" href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">
http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br><br></blockquote></div><br>