<html><body>
<p>Estudo no UNI-BH (Centro Universitario de Belo Horizonte)... mas faço estágio na UFMG e PowerLogic....<br>
<br>
t+<br>
Diego<br>
<br>
<br>
.============================================.<br>
Diego Mendes Teixeira - diegom@lcc.ufmg.br <br>
Setor de Desenvolvimento - UFMG - LCC/CENAPAD <br>
Cel: +55(31)8842-9951 - Tel(trab): +55(31)34994910 <br>
'============================================'<br>
<img src="cid:10__=0CBBF883DFF50A558f9e8a93df@grude.ufmg.br" width="16" height="16" alt="Inativo ocultar detalhes deLorn <lorn.br@gmail.com>">Lorn <lorn.br@gmail.com><br>
<br>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr valign="top"><td style="background-image:url(cid:20__=0CBBF883DFF50A558f9e8a93df@grude.ufmg.br); background-repeat: no-repeat; " width="40%">
<ul>
<ul>
<ul>
<ul><b><font size="2">Lorn <lorn.br@gmail.com></font></b><font size="2"> </font><br>
<font size="2">Enviado Por: cascavel-pm-bounces+diegom=lcc.ufmg.br@pm.org</font>
<p><font size="2">20/10/2006 18:27</font>
<table border="1">
<tr valign="top"><td width="168" bgcolor="#FFFFFF"><div align="center"><font size="2">Favor responder a<br>
Cascavel Perl Mongers <cascavel-pm@pm.org></font></div></td></tr>
</table>
</ul>
</ul>
</ul>
</ul>
</td><td width="60%">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr valign="top"><td width="1%" valign="middle"><img src="cid:30__=0CBBF883DFF50A558f9e8a93df@grude.ufmg.br" border="0" height="1" width="58" alt=""><br>
<div align="right"><font size="2">Para</font></div></td><td width="100%"><img src="cid:30__=0CBBF883DFF50A558f9e8a93df@grude.ufmg.br" border="0" height="1" width="1" alt=""><br>
<font size="2">"Cascavel Perl Mongers" <cascavel-pm@pm.org></font></td></tr>
<tr valign="top"><td width="1%" valign="middle"><img src="cid:30__=0CBBF883DFF50A558f9e8a93df@grude.ufmg.br" border="0" height="1" width="58" alt=""><br>
<div align="right"><font size="2">cc</font></div></td><td width="100%"><img src="cid:30__=0CBBF883DFF50A558f9e8a93df@grude.ufmg.br" border="0" height="1" width="1" alt=""><br>
</td></tr>
<tr valign="top"><td width="1%" valign="middle"><img src="cid:30__=0CBBF883DFF50A558f9e8a93df@grude.ufmg.br" border="0" height="1" width="58" alt=""><br>
<div align="right"><font size="2">Assunto</font></div></td><td width="100%"><img src="cid:30__=0CBBF883DFF50A558f9e8a93df@grude.ufmg.br" border="0" height="1" width="1" alt=""><br>
<font size="2">Re: [Cascavel-pm] busca em arquivo</font></td></tr>
</table>
<table border="0" cellspacing="0" cellpadding="0">
<tr valign="top"><td width="58"><img src="cid:30__=0CBBF883DFF50A558f9e8a93df@grude.ufmg.br" border="0" height="1" width="1" alt=""></td><td width="336"><img src="cid:30__=0CBBF883DFF50A558f9e8a93df@grude.ufmg.br" border="0" height="1" width="1" alt=""></td></tr>
</table>
</td></tr>
</table>
<br>
<a href="http://search.cpan.org/~jgoldberg/Text-Levenshtein-0.05/Levenshtein.pm"><u><font size="4" color="#0000FF">http://search.cpan.org/~jgoldberg/Text-Levenshtein-0.05/Levenshtein.pm</font></u></a><font size="4"><br>
Esse modulo é um bom começo para buscas aproximadas, boa sorte<br>
PS: Que faculdade é a sua?<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"><u><font size="4" color="#0000FF">diegom@lcc.ufmg.br</font></u></a><font size="4">> wrote:</font>
<ul>
<ul><font size="4">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>
</font><i><font size="4"><br>
(Consulte o arquivo anexado: erPerl.pl)</font></i><font size="4"><br>
<br>
.============================================.<br>
Diego Mendes Teixeira - </font><a href="mailto:diegom@lcc.ufmg.br" target="_blank"><u><font size="4" color="#0000FF">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>
'============================================'<br>
</font><font size="4">"Gabriel Vieira" <</font><a href="mailto:gabriel.vieira@gmail.com" target="_blank"><u><font size="4" color="#0000FF"> gabriel.vieira@gmail.com</font></u></a><font size="4">><br>
<br>
</font>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr valign="top"><td width="58%">
<ul>
<ul>
<ul>
<ul>
<ul>
<ul>
<ul>
<ul><b>"Gabriel Vieira" <</b><a href="mailto:gabriel.vieira@gmail.com" target="_blank"><b><u><font color="#0000FF">gabriel.vieira@gmail.com</font></u></b></a><b>></b> <br>
Enviado Por: cascavel-pm-bounces+diegom=<a href="mailto:lcc.ufmg.br@pm.org" target="_blank"><u><font color="#0000FF">lcc.ufmg.br@pm.org</font></u></a><font size="4"> </font>
<p>20/10/2006 14:34<font size="4"> </font></ul>
</ul>
</ul>
</ul>
</ul>
</ul>
</ul>
</ul>
<table width="100%" border="1">
<tr valign="top"><td width="100%" bgcolor="#FFFFFF"><div align="center">Favor responder a<br>
Cascavel Perl Mongers <<a href="mailto:cascavel-pm@pm.org" target="_blank"><u><font color="#0000FF">cascavel-pm@pm.org</font></u></a>></div></td></tr>
</table>
</td><td width="42%">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr valign="top"><td width="18%" valign="middle"><div align="right">Para</div></td><td width="82%"><br>
"Cascavel Perl Mongers" <<a href="mailto:cascavel-pm@pm.org" target="_blank"><u><font color="#0000FF">cascavel-pm@pm.org</font></u></a>></td></tr>
<tr valign="top"><td width="18%" valign="middle"><div align="right">cc</div></td><td width="82%"><img src="cid:30__=0CBBF883DFF50A558f9e8a93df@grude.ufmg.br" border="0" height="1" width="1" alt=""></td></tr>
<tr valign="top"><td width="18%" valign="middle"><div align="right">Assunto</div></td><td width="82%"><br>
Re: [Cascavel-pm] busca em arquivo</td></tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr valign="top"><td width="15%"><img src="cid:30__=0CBBF883DFF50A558f9e8a93df@grude.ufmg.br" border="0" height="1" width="1" alt=""></td><td width="85%"><img src="cid:30__=0CBBF883DFF50A558f9e8a93df@grude.ufmg.br" border="0" height="1" width="1" alt=""></td></tr>
</table>
</td></tr>
</table>
<font size="5"><br>
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</font><font size="4"><br>
</font><font size="5"><br>
On 10/20/06, </font><b><font size="5">Diego Mendes Teixeira</font></b><font size="5"> <</font><a href="mailto:diegom@lcc.ufmg.br" target="_blank"><u><font size="4" color="#0000FF"> </font></u><u><font size="5" color="#0000FF">diegom@lcc.ufmg.br</font></u></a><font size="5">> wrote:</font><font size="4"> </font>
<ul>
<ul>
<ul>
<ul><font size="6">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="5"><br>
<br>
<br>
.============================================.<br>
Diego Mendes Teixeira - </font><a href="mailto:diegom@lcc.ufmg.br" target="_blank"><u><font size="5" color="#0000FF">diegom@lcc.ufmg.br</font></u></a><font size="5"> <br>
Setor de Desenvolvimento - UFMG - LCC/CENAPAD <br>
Cel: +55(31)8842-9951 - Tel(trab): +55(31)34994910 <br>
'============================================'</font><font size="4"> </font>
<p><font size="5"><br>
_______________________________________________<br>
Cascavel-pm mailing list</font><u><font size="4" color="#0000FF"><br>
</font></u><a href="mailto:Cascavel-pm@pm.org" target="_blank"><u><font size="5" color="#0000FF">Cascavel-pm@pm.org</font></u></a><u><font size="4" color="#0000FF"><br>
</font></u><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank"><u><font size="5" color="#0000FF">http://mail.pm.org/mailman/listinfo/cascavel-pm </font></u></a><tt><font size="4"><br>
_______________________________________________<br>
Cascavel-pm mailing list</font></tt><tt><u><font size="4" color="#0000FF"><br>
</font></u></tt><a href="mailto:Cascavel-pm@pm.org" target="_blank"><tt><u><font size="4" color="#0000FF">Cascavel-pm@pm.org</font></u></tt></a><tt><u><font size="4" color="#0000FF"><br>
</font></u></tt><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank"><tt><u><font size="4" color="#0000FF">http://mail.pm.org/mailman/listinfo/cascavel-pm</font></u></tt></a><font size="4"> </font></ul>
</ul>
</ul>
</ul>
<font size="4"><br>
_______________________________________________<br>
Cascavel-pm mailing list</font><u><font size="4" color="#0000FF"><br>
</font></u><a href="mailto:Cascavel-pm@pm.org"><u><font size="4" color="#0000FF">Cascavel-pm@pm.org</font></u></a><u><font size="4" color="#0000FF"><br>
</font></u><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank"><u><font size="4" color="#0000FF">http://mail.pm.org/mailman/listinfo/cascavel-pm</font></u></a><font size="4"><br>
<br>
</font></ul>
</ul>
<font size="4"><br>
<br>
<br>
-- <br>
Lorn <br>
- Slackware Linux</font><u><font size="4" color="#0000FF"><br>
</font></u><a href="http://www.slackwarezine.com.br/"><u><font size="4" color="#0000FF">www.slackwarezine.com.br </font></u></a><font size="4"><br>
- </font><a href="http://lornlab.org/"><u><font size="4" color="#0000FF">http://lornlab.org</font></u></a><font size="4"> </font><tt>_______________________________________________<br>
Cascavel-pm mailing list<br>
Cascavel-pm@pm.org<br>
</tt><tt><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a></tt><br>
</body></html>