<div>Thomas,<br><br><div>Esse codigo nao ta funcionando, e perai, do jeito que ta eu nao to abrindo o arquivo e a condição do laço? eu não teria que usar open (F,$ARGV[1]) para abrir o arquivo e eu nao teria que colocar uma condição while ($linha, &lt;F&gt;) para ler ate o final do arquivo?<br><br>Vlw<br><br>.============================================.<br>  Diego Mendes Teixeira   -  <a href="mailto:diegom@lcc.ufmg.br">diegom@lcc.ufmg.br</a>             <br>  Desenvolvimento de Sistemas  -  LCC/CENAPAD<br>  Universidade Federal de Minas Gerais - UFMG   <br>  Cel: +55(31)8842-9951 - Tel(trab): +55(31)34994910       <br>'============================================'<br><div><br></div><font color="#990099">-----cascavel-pm-bounces+diegom=lcc.ufmg.br@pm.org escreveu: -----<br><br></font><blockquote style="border-left: 2px solid rgb(0, 0, 0); padding-right: 0px; padding-left: 5px; margin-left: 5px; margin-right: 0px;">Para: Cascavel Perl Mongers &lt;cascavel-pm@pm.org&gt;<br>De: Thomas Britis &lt;thomas@tcnet.com.br&gt;<br>Enviado por: cascavel-pm-bounces+diegom=lcc.ufmg.br@pm.org<br>Data: 25/10/2006 15:39<br>Assunto: Re: [Cascavel-pm] Manipulação de arquivo<br><br><font face="monospace" size="3">Fiz um programa (meio porco) usando a estrutura que você estava usando <br>no outro para comparação exata sem uso de expressão regular:<br><br>my ($nome) = $ARGV[0] || die "Uso: $0 [palavra] [arquivo]\n";<br>my ($delim) = ":"; # Delimitador já que você só considera a primeira <br>parte, correto?<br>my ($linha);<br>my ($achei) = 0;<br>my ($x);<br><br>open (F, "<!--$ARGV[1]");<BR-->while (<F>) {<br> &nbsp; &nbsp; &nbsp; &nbsp; $linha++;<br> &nbsp; &nbsp; &nbsp; &nbsp; $x = 0;<br> &nbsp; &nbsp; &nbsp; &nbsp; while ((substr ($nome, $x, 1) eq substr ($_, $x, 1)) &amp;&amp; (substr <br>($_, $x, 1) ne $delim)) { $x++; }<br> &nbsp; &nbsp; &nbsp; &nbsp; if ($x eq length ($nome)) {<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; print "Achei em linha $linha\n";<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; $achei++;<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; last;<br> &nbsp; &nbsp; &nbsp; &nbsp; }<br>}<br><br>print "Nao achei\n" if (!$achei);<br><br>-- <br>Thomas Storino Britis<br>TCNet Informatica e Telecomunicacoes LTDA<br>_______________________________________________<br>Cascavel-pm mailing list<br>Cascavel-pm@pm.org<br></F><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></font></blockquote><br></div></div>