obs:<div><br><div> perl -E 'sub a{my $x = shift() * 1000; $x = int($x/200)*200; $x}; say a -0.799999999; say a -0.8'</div><div>-600</div><div>-800</div><div><br></div><div>como esta arredondando via truncate, o 79999999999999 geralmente deveria estar no grupo do 800, OU NÃO! você que decide isso</div>
<div><br></div><div><br></div><div class="gmail_quote">2012/11/30 Renato Santos <span dir="ltr"><<a href="mailto:renato.cron@gmail.com" target="_blank">renato.cron@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
pronto, na 51 eu respondo!<div><br><div class="gmail_quote"><div class="im">2012/11/30 Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com" target="_blank">guedes_1000@hotmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr">
Bruno, no meu if funcionou tanto com && quanto com and. O meu erro mesmo foi que a regex pegava um espasso.<br></div></div></blockquote></div><div> pois é, vai funcionar!</div><div>#no more comments</div><div class="im">
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr">Bem a minha duvida ficou em "porque seria problematico colocar reais em chaves de hash no meu caso?"<br></div></div></blockquote></div><div>tenho quase certeza que, como já foi removido de um texto, o numero real em questão, seja apenas um scalar, sem a flag de 'real' (se é existe essa flag internamente),</div>
<div><br></div><div>portanto, você pode colocar qualquer coisa nas chaves de um hash sem problema </div><div><br></div><div>(to em duvida se existe algum byte especial que é usado para separar as chaves internamente, esse valor fica em uma das variaveis magicas)</div>
<div class="im">
<div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div dir="ltr"><br>Se eu fosse pesquisar um valor especifico e tivesse duas ou mais chaves com o mesmo valor real seria problema<br>
</div></div></blockquote></div><div>você tem que pesquisar exatamente o valor desejado, mas não tem problema pois você esta percorrendo todas as chaves </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr">mas no meu caso <b>i</b>mporta que o valor estej<b>e </b>em um determinado intervalo, podem ter 20 chaves iguais, estando no intervalo<div class="im"><br>eu quero os 20 valores. 49??<br></div></div></div>
</blockquote><div>que? 20 chaves iguais não pode! </div>
<div><br></div><div><br></div><div>voltando a que eu respondi no email via celular, eu faria o codigo de outra forma,</div><div>se for possivel e os intervalos forem já predetermindados:</div><div>no lugar de</div><div class="im">
<div><span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">$hmfe{$mirna} = $record if ($mirna);</span></div>
</div><div><span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">eu já montaria ( fill, populate, do the inserts ) o hash com as chaves já sendo o intervalo, calculado por uma funcao (que eu chameria de filtro)<br>
<br></span></div><div><font face="courier new, monospace"><span style="color:rgb(34,34,34);font-size:13px">push(@{$hmfe{determina_intervalo($mirna)}, </span><span style="color:rgb(34,34,34);font-size:13px">$record</span><span style="color:rgb(34,34,34);font-size:13px">} if ($mirna);</span></font></div>
<div><span style="color:rgb(34,34,34);font-size:13px"><font face="courier new, monospace"><br></font></span></div><div><font face="courier new, monospace">$truncate = 1000; # isso transforma -0.123456789 em -0.123 e desconsidera o que estiver na frente do 3. o round-up transformaria em 0.12<b>4</b></font></div>
<div><b><font face="courier new, monospace"><br></font></b></div><div><font face="courier new, monospace">sub <span style="color:rgb(34,34,34);font-size:13px">determina_intervalo {</span></font></div>
<div><span style="color:rgb(34,34,34);font-size:13px"><font face="courier new, monospace">my $valor = shift;</font></span></div><div><span style="color:rgb(34,34,34);font-size:13px"><font face="courier new, monospace"># isso so faz o truncate</font></span></div>
<div><font face="courier new, monospace">$valor = int ($valor * $truncate) / $truncate;</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace"># depois separa em grupos de 200:</font></div>
<div><font face="courier new, monospace">$valor *= 1000;</font></div><div><font face="courier new, monospace">return int($valor/200)*200; # isso retorna só '200' que ja vale, mas poderia ser tambem:</font></div><div>
<font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">my $tmp = int($valor/200)*200;</font></div><div><font face="courier new, monospace">retrun "$tmp:".$tmp+200 # que vai retornar '-400:-200' que </font></div>
<div><span style="color:rgb(34,34,34);font-size:13px"><font face="courier new, monospace">}</font></span></div><div><br></div><div>e assim o valor da chave do intervalo já contem todos os registros daquele intervalo, nem de if precisa!</div>
<div><br></div><div><div>perl -E 'sub a{my $x = shift() * 1000; $x = int($x/200)*200; $x}; say a -0.12; say a -0.23; say a -0.25; say a -0.26; say a -5; say a -0.29; say a -0.5; say a -0.71'</div><div>0</div><div>
-200</div><div>-200</div><div>-200</div><div>-5000</div><div>-200</div><div>-400</div><div>-600</div></div><div><div class="h5"><div><br></div><div><br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr"><br><div><div></div><hr>From: <a href="mailto:leonardo.balter@gmail.com" target="_blank">leonardo.balter@gmail.com</a><br>Date: Fri, 30 Nov 2012 00:15:50 -0200<div><br>To: <a href="mailto:rio-pm@pm.org" target="_blank">rio-pm@pm.org</a><br>
Subject: Re: [Rio-pm] Chaves de hash<br><br></div><div><div><div>Quero participar dessa discussao antes do 50.</div><div><br></div><div>Por que tanta peculiariade na dicotomia de popular?</div><div><br></div><div>
Na buzilis da cizania ja nao era mais sobre Perl ou foi impressao minha?</div><div><br></div><div><br>Leo Balter - via mobile</div><div><br>Em 30/11/2012, às 00:02, Marcio Ferreira <<a href="mailto:marciodesouzaferreira@gmail.com" target="_blank">marciodesouzaferreira@gmail.com</a>> escreveu:<br>
<br></div><blockquote><div>47<br>
<div>On Nov 29, 2012 11:35 PM, "Renato Santos" <<a href="mailto:renato.cron@gmail.com" target="_blank">renato.cron@gmail.com</a>> wrote:<br><blockquote style="border-left:1px #ccc solid;padding-left:1ex">
<pre style="margin-bottom:10px;padding:5px;border:0px;font-size:14px;vertical-align:baseline;background-color:rgb(238,238,238);font-family:Consolas,Menlo,Monaco,'Lucida Console','Liberation Mono','DejaVu Sans Mono','Bitstream Vera Sans Mono','Courier New',monospace,serif;overflow:auto;width:auto;max-height:600px;line-height:18px">
<code style="padding:0px;border:0px;vertical-align:baseline;font-family:Consolas,Menlo,Monaco,'Lucida Console','Liberation Mono','DejaVu Sans Mono','Bitstream Vera Sans Mono','Courier New',monospace,serif"><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent;color:gray">#define</span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent"> float_epsilon </span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent;color:rgb(128,0,0)">0.00001</span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent">;</span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent">
</span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent;color:gray">#define</span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent"> float_equal</span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent">(</span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent">a</span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent">,</span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent">b</span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent">)</span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent"> </span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent">(</span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent">fabs</span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent">((</span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent">a</span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent">)</span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent"> </span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent">-</span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent"> </span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent">(</span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent">b</span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent">))</span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent"> </span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent"><</span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent"> float_epsilon</span><span style="padding:0px;border:0px;vertical-align:baseline;background-color:transparent">)</span></code></pre>
<div><font face="Verdana, Geneva, Arial, Helvetica, sans-serif"><span style="font-size:11px"><b>BTW</b></span></font></div><div><div><br><div>2012/11/29 Blabos de Blebe <span dir="ltr"><<a href="mailto:blabos@gmail.com" target="_blank">blabos@gmail.com</a>></span><br>
<blockquote style="border-left:1px #ccc solid;padding-left:1ex">float_equal</blockquote></div><br><br clear="all"><div><br></div>-- <br><div><span style="color:rgb(51,51,51);font-size:x-small">Saravá,</span></div>
<div><span style="color:rgb(51,51,51);font-size:x-small">Renato CRON</span></div><div><div style="text-align:right"><font color="#333333" size="1"><a href="http://www.renatocron.com/blog/" target="_blank">http://www.renatocron.com/blog/</a></font></div>
</div><div style="text-align:right"><font color="#333333" size="1"><a href="http://twitter.com/#%21/renato_cron" target="_blank">@renato_cron</a></font></div><br>
</div></div>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div>
</div></blockquote><blockquote><div><span>_______________________________________________</span><br><span>Rio-pm mailing list</span><br><span><a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a></span><br><span><a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a></span></div>
</blockquote><br>_______________________________________________
Rio-pm mailing list
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a></div></div></div> </div></div>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div></div></div><div><div class="h5"><br><br clear="all"><div><br></div>-- <br><div><span style="color:rgb(51,51,51);font-size:x-small">Saravá,</span></div>
<div><span style="color:rgb(51,51,51);font-size:x-small">Renato CRON</span></div><div><div style="text-align:right"><font size="1" color="#333333"><a href="http://www.renatocron.com/blog/" target="_blank">http://www.renatocron.com/blog/</a></font></div>
</div><div style="text-align:right"><font size="1" color="#333333"><a href="http://twitter.com/#!/renato_cron" target="_blank">@renato_cron</a></font></div><br>
</div></div></div>
</blockquote></div><br><br clear="all"><div><br></div>-- <br><div><span style="color:rgb(51,51,51);font-size:x-small">Saravá,</span></div><div><span style="color:rgb(51,51,51);font-size:x-small">Renato CRON</span></div><div>
<div style="text-align:right"><font size="1" color="#333333"><a href="http://www.renatocron.com/blog/" target="_blank">http://www.renatocron.com/blog/</a></font></div></div><div style="text-align:right"><font size="1" color="#333333"><a href="http://twitter.com/#!/renato_cron" target="_blank">@renato_cron</a></font></div>
<br>
</div>