<a href="http://search.cpan.org/~jgoldberg/Text-Levenshtein-0.05/Levenshtein.pm">http://search.cpan.org/~jgoldberg/Text-Levenshtein-0.05/Levenshtein.pm</a><br>Esse modulo é um bom começo para buscas aproximadas, boa sorte<br>
PS: Que faculdade é a sua?<br><br><div><span class="gmail_quote">On 10/20/06, <b class="gmail_sendername">Diego Mendes Teixeira</b> <<a href="mailto:diegom@lcc.ufmg.br">diegom@lcc.ufmg.br</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div>
<p>EU JA FIZ O DE EXPRESSAO REGULAR QUE ESTA FUNCIONANDO SIM, FALTA NA BUSCA APROXIMADA O PROGRAMA NAO FAZER DISTINCAO ENTRE LETRAS MAIUSCULAS E MINUSCULAS. JA NO OUTRO PROGRAMA EU NAO SEI COMO ADICIONAR O TEXTO EM UM ARRAY E FAZER A BUSCA PELA PALAVRA.... AINDA NAO COMECEI....
<br>
<br>
==================================================================================================================================<br>
<br>
#!/usr/local/bin/perl<br>
<br>
#Programa de busca de casamento de padrao em perl com uso de expressoes regulares<br>
<br>
print "\nEscolha a opcão de busca e a palavra a ser buscada(passagem por argumento)\n\n";<br>
print "0 - Busca exata\n";<br>
print "1 - Busca aproximada\n\n";<br>
print "Exemplo: perl [programa] [tipo de busca] [palavra]\n\n";<br>
<br>
foreach $argument(@ARGV){ #carrega um argumento por vez para a variavel $argument<br>
push(@arguments,$argument); #adiciona o argumento ao array @arguments<br>
} <br>
<br>
if ($arguments[0] == '0'){ #Testa o primeiro argumento, se '0' entao busca exata!<br>
<br>
$palavra = $arguments[1];#a palavra é recuperada o array<br>
$aux = 0;#linha da ocorrencia da palavra<br>
$aux2 = 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>
++$aux;#variavel que guarda a linha que esta sendo lida<br>
if ( $linha =~ /\b$palavra\b/ ) { #testa se a palavra esta na linha referenciada<br>
print "Linha:".$aux."\n";#imprime a linha caso tenha encontrado a palavra<br>
$aux2 = 1; #seta aux2 indicando que pelo menos uma ocorrencia da palavra foi encontrada <br>
}<br>
}<br>
close ( ARQUIVO ); #fecha o arquivo<br>
<br>
if ($aux2 == 0){ #testa se aux2 foi setado<br>
print "Não foi encontrado nenhuma ocorrência da palavra: ".$palavra."\n\n";<br>
} <br>
}<br>
else { #Busca aproximada!<br>
<br>
$palavra = $arguments[1];#a palavra é recuperada o array<br>
$aux = 0;#linha da ocorrencia da palavra<br>
$aux2 = 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>
++$aux;#variavel que guarda a linha que esta sendo lida<br>
if (( $linha =~ /$palavra/ ) || ($linhaMaus =~/$palavra/) || ($linhaMin =~/$palavra/)){ #testa se a palavra esta na linha referenciada<br>
print "Linha:".$aux."\n";#imprime a linha caso tenha encontrado a palavra<br>
$aux2 = 1; #seta aux2 indicando que pelo menos uma ocorrencia da palavra foi encontrada <br>
}<br>
}<br>
close ( ARQUIVO ); #fecha o arquivo<br>
<br>
if ($aux2 == 0){ #testa se aux2 foi setado<br>
print "Não foi encontrado nenhuma ocorrência da palavra: ".$palavra."\n\n";<br>
} <br>
<br>
}<br>
<br>
<br>
<br>
==================================================================================================================================<br>
<br>
VLW, AGUARDO RETORNO.........<br>
<br>
<i>(Consulte o arquivo anexado: erPerl.pl)</i><span class="q"><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></span>
<img alt="Inativo ocultar detalhes de"Gabriel Vieira" <gabriel.vieira@gmail.com>" height="16" width="16">"Gabriel Vieira" <<a href="mailto:gabriel.vieira@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
gabriel.vieira@gmail.com</a>><br>
<br>
<br>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tbody><tr valign="top"><td width="40%">
<ul>
<ul>
<ul>
<ul><b><font size="2">"Gabriel Vieira" <<a href="mailto:gabriel.vieira@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">gabriel.vieira@gmail.com</a>></font></b><font size="2">
</font><br>
<font size="2">Enviado Por: cascavel-pm-bounces+diegom=<a href="mailto:lcc.ufmg.br@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">lcc.ufmg.br@pm.org</a></font>
<p><font size="2">20/10/2006 14:34</font>
<table border="1">
<tbody><tr valign="top"><td bgcolor="#ffffff" width="168"><div align="center"><font size="2">Favor responder a<br>
Cascavel Perl Mongers <<a href="mailto:cascavel-pm@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">cascavel-pm@pm.org</a>></font></div></td></tr>
</tbody></table>
</p></ul>
</ul>
</ul>
</ul>
</td><td width="60%">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tbody><tr valign="top"><td valign="middle" width="1%"><img alt="" border="0" height="1" width="58"><br>
<div align="right"><font size="2">Para</font></div></td><td width="100%"><img alt="" border="0" height="1" width="1"><br>
<font size="2">"Cascavel Perl Mongers" <<a href="mailto:cascavel-pm@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">cascavel-pm@pm.org</a>></font></td></tr>
<tr valign="top"><td valign="middle" width="1%"><img alt="" border="0" height="1" width="58"><br>
<div align="right"><font size="2">cc</font></div></td><td width="100%"><img alt="" border="0" height="1" width="1"><br>
</td></tr>
<tr valign="top"><td valign="middle" width="1%"><img alt="" border="0" height="1" width="58"><br>
<div align="right"><font size="2">Assunto</font></div></td><td width="100%"><img alt="" border="0" height="1" width="1"><br>
<font size="2">Re: [Cascavel-pm] busca em arquivo</font></td></tr>
</tbody></table>
<table border="0" cellpadding="0" cellspacing="0">
<tbody><tr valign="top"><td width="58"><img alt="" border="0" height="1" width="1"></td><td width="336"><img alt="" border="0" height="1" width="1"></td></tr>
</tbody></table>
</td></tr>
</tbody></table></p><div><span class="e" id="q_10e66d0add045772_3">
<br>
<font size="4">Você já começou?<br>
Mostra o que já fez que lhe ajudaremos. Não podemos fazer todo um trabalho por você né. :)<br>
<br>
No aguardo,<br>
<br>
Gabriel Vieira<br>
</font><br>
<font size="4">On 10/20/06, </font><b><font size="4">Diego Mendes Teixeira</font></b><font size="4"> <</font><a href="mailto:diegom@lcc.ufmg.br" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)"><u>
<font color="#0000ff" size="4">diegom@lcc.ufmg.br</font></u></a><font size="4">> wrote:</font>
<ul>
<ul><font size="5">Boa Tarde,<br>
<br>
Tenho que fazer um trabalho em perl para a máteria de linguagens de programação.<br>
<br>
O objetivo deste trabalho é projetar e implementar um sistema de programas para recuperar<br>
ocorrências de padrões em arquivos constituídos de documentos, utilizando algoritmos lineares<br>
de busca seqüencial.<br>
<br>
O professor pede que eu desenvolva 2 algoritmos:<br>
<br>
1 - BMH em Perl com arranjo dinâmico em heap<br>
2 - Casamento em Perl com uso de expressões regulares<br>
<br>
O sistema recebe do usuário uma cadeia de caracteres, se a busca é exata (k=0) ou aproximada<br>
(0 < k < m), e imprime todas as ocorrências do padrão no texto.<br>
<br>
Alguem poderia me dar uma ajuda???????<br>
<br>
Vlw</font><font size="4"><br>
<br>
<br>
.============================================.<br>
Diego Mendes Teixeira - </font><a href="mailto:diegom@lcc.ufmg.br" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)"><u><font color="#0000ff" size="4">diegom@lcc.ufmg.br</font></u></a><font size="4">
<br>
Setor de Desenvolvimento - UFMG - LCC/CENAPAD <br>
Cel: +55(31)8842-9951 - Tel(trab): +55(31)34994910 <br>
'============================================'</font>
<p><font size="4"><br>
_______________________________________________<br>
Cascavel-pm mailing list</font><u><font color="#0000ff" size="4"><br>
</font></u><a href="mailto:Cascavel-pm@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)"><u><font color="#0000ff" size="4">Cascavel-pm@pm.org</font></u></a><u><font color="#0000ff" size="4"><br>
</font></u><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)"><u><font color="#0000ff" size="4">http://mail.pm.org/mailman/listinfo/cascavel-pm
</font></u></a><font size="4"><br>
</font><tt>_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">Cascavel-pm@pm.org</a><br>
</tt><tt><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">http://mail.pm.org/mailman/listinfo/cascavel-pm</a></tt>
</p><p></p><p></p></ul>
</ul>
</span></div><p></p></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><br clear="all"></blockquote></div><br><br clear="all"><br>-- <br>Lorn <br>- Slackware Linux<br><a href="http://www.slackwarezine.com.br">www.slackwarezine.com.br
</a><br>- <a href="http://lornlab.org">http://lornlab.org</a>