Agora no PC !! (no windows, programando C# :O )<div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; "><i>use strict;<br>use warnings;<br>use utf8;<br>open(my $fh, '<:encoding(utf8)', 'frases.txt') or die("Error $!");</i></span></div>
<div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; "><i><br>my $linha_anterior = undef;</i></span></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; "><i>my @array = ();<br>
while (my $linha = <$fh>){<br><br> my ($frase, $pontuacao) = ($linha =~ /([^\:]+)\s*\:\s*(\d+)/o);<br> </i></span></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; "><i> my $linha_atual = {</i></span></div>
<div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; "><i> linha => $frase,</i></span></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; "><i> pontos => $pontuacao</i></span></div>
<div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; "><i> };</i></span></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; "><i> if ($frase =~ /algo muito doido/){</i></span></div>
<div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; "><i> $linha_anterior->{pontos} += 123;</i></span></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; "><i> }</i></span></div>
<div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; "><i> $linha_anterior = <span class="Apple-style-span" style="font-style: normal; "><i><span class="Apple-style-span" style="font-style: normal; "><i>$linha_atual</i></span>;</i></span></i></span></div>
<div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; "><i><br></i></span></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; "><i><span class="Apple-style-span" style="font-style: normal; "><i></i></span> push(@array, <span class="Apple-style-span" style="font-style: normal; "><i>$linha_atual);</i></span></i></span></div>
<div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; "><i><span class="Apple-style-span" style="font-style: normal; "><i></i></span><br> # voce poderia fazer um push numa array com duas dimensoes:<br>
# push(@array_com_as_linhas, [$frase, $pontuacao])<br> # ou montra um HASH e jogar numa array:<br> # push(@array_com_os_hashs, {frase => $frase, pontuacao => $pontuacao});<br> # ou printar aqui mesmo: <br>
# print "'$frase' tem $pontuacao pontos\n";<br> # pois nao ha processamento neles.<br>}<br><br>close($fh);</i></span></div><div><font class="Apple-style-span" face="arial, sans-serif"><span class="Apple-style-span" style="border-collapse: collapse;"><i>#fecha o arquivo</i></span></font></div>
<div><font class="Apple-style-span" face="arial, sans-serif"><span class="Apple-style-span" style="border-collapse: collapse;"><i># abre um novo</i></span></font></div><div><font class="Apple-style-span" face="arial, sans-serif"><span class="Apple-style-span" style="border-collapse: collapse;"><i># escreve de novo do jeito que voce quer.</i></span></font></div>
<div><font class="Apple-style-span" face="arial, sans-serif"><span class="Apple-style-span" style="border-collapse: collapse;"><i><br></i></span></font></div><div><i></i><font class="Apple-style-span" face="arial, sans-serif"><span class="Apple-style-span" style="border-collapse: collapse;"><i><br>
</i></span></font><br><div class="gmail_quote">2010/12/8 Solli Honorio <span dir="ltr"><<a href="mailto:shonorio@gmail.com">shonorio@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<br><br><div class="gmail_quote">2010/12/8 Renato Santos <span dir="ltr"><<a href="mailto:renato.cron@gmail.com" target="_blank">renato.cron@gmail.com</a>></span><div class="im"><br><blockquote class="gmail_quote" style="margin:0pt 0pt 0pt 0.8ex;border-left:1px solid rgb(204, 204, 204);padding-left:1ex">
<p>Juliana, nao entredi quase nada!</p>
<p>Eu prefiro usar hasH, pois fica mais claro pra ler o código.</p>
<p>todavia, vou tentar explicar uma gambi q eu faço: <br>
Sempre q vou mudar alguma coisa na próxima linha, uso a ref da linha anterior.</p>
<p>My $ref;<br>
While ... {<br>
$new = {linha ..., pontos => 0};<br>
Push(@array, $new);</p>
<p>$ref->{pontos}++;<br>
$ref = $new;<br>
<br>
};</p>
<p>...<br>
To no almoço, duvidas grita aí <br></p></blockquote></div><div><br>Putz, agora eu não entendi o que a Juliana quer fazer e nem o que vc quis fazer !!!<br><br> </div><div class="im"><blockquote class="gmail_quote" style="margin:0pt 0pt 0pt 0.8ex;border-left:1px solid rgb(204, 204, 204);padding-left:1ex">
<p>
</p>
<p></p><blockquote type="cite">Em dez 8, 2010 1:00 PM, "Juliana" <<a href="mailto:julianalduque@yahoo.com.br" target="_blank">julianalduque@yahoo.com.br</a>>escreveu:<br><br><table border="0" cellpadding="0" cellspacing="0">
<tbody><tr><td style="font:inherit" valign="top"><div><div></div><div>Olá amigos,<br><br>Agradeço a todos pela resposta.<br><br><br>Renato, se eu utilizar o push de uma array conforme o código abaixo, da forma que está eu consigo alterar a pontuação de um frase dinamicamente? Por exemplo...<br>
<br>Após eu colocar todas as frases e suas respectivas pontuações (que no início estarão todas com as pontuações zeradas), farei o seguinte:<br><br></div></div>Minha frase (minha linha) que casar com minha expressão regular, irei chamá-lo de minha linha atual, e irei verificar a linha anterior (linhaatual -1) e posterior (linhaatual +1) para casar com outra expressão regular, que dependendo de cada regr, e esta pontuação poderá ser alterada, quando a frase for comparada com outras 2 frases (anterior e posterior a ela).<br>
<br>Dessa forma que está (utilizando hash) eu consigo fazer isso posteriormente?<br><br>Ah! E este arquivo de
frases não chega a 1MB.<br><br>Obrigada<br><br>Juliana<br><br><br><br>--- Em <b>ter, 7/12/10, Renato Santos <i><<a href="mailto:renato.cron@gmail.com" target="_blank">renato.cron@gmail.com</a>></i></b> escreveu:<br>
<blockquote style="border-left:2px solid rgb(16, 16, 255);margin-left:5px;padding-left:5px"><br>De: Renato Santos <<a href="mailto:renato.cron@gmail.com" target="_blank">renato.cron@gmail.com</a>><br>Assunto: Re: [SP-pm] Ajuda com vetor de 2 dimensões<br>
Para: <a href="mailto:saopaulo-pm@mail.pm.org" target="_blank">saopaulo-pm@mail.pm.org</a><br>Data: Terça-feira, 7 de Dezembro de 2010, 6:51<p><font color="#500050">
>
> Amigo,
> em perl, seria bem mais interessante você utilizar um HASH (ou como eu sou viciado, HA...</font></p>-----Anexo incorporado-----<p><font color="#500050">
>
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm@pm.org...</font></p></blockquote></td></tr></tbody></table><div><br>
<br>_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br></div></blockquote>
<br>_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br></blockquote></div></div><br><br clear="all"><div><div></div><div class="h5"><br>-- <br>"o animal satisfeito dorme". - Guimarães Rosa<br>
</div></div><br>_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>Renato Santos<br><a href="http://www.renatocron.com/blog/" target="_blank">http://www.renatocron.com/blog/</a><br>
</div>