Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Renato Santos
eu com a mania de corrigir o certo! é esteja mesmo! 2012/11/30 Renato Santos > estej*e* > -- Saravá, Renato CRON http://www.renatocron.com/blog/ @renato_cron ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.o

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Renato Santos
obs: perl -E 'sub a{my $x = shift() * 1000; $x = int($x/200)*200; $x}; say a -0.7; say a -0.8' -600 -800 como esta arredondando via truncate, o 79 geralmente deveria estar no grupo do 800, OU NÃO! você que decide isso 2012/11/30 Renato Santos > pronto, na 51 eu respondo!

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Renato Santos
pronto, na 51 eu respondo! 2012/11/30 Aureliano Guedes > Bruno, no meu if funcionou tanto com && quanto com and. O meu erro mesmo > foi que a regex pegava um espasso. > pois é, vai funcionar! #no more comments > Bem a minha duvida ficou em "porque seria problematico colocar reais em > chaves

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Stanislaw Pusep
Todos sabem que a WWII foi desencadeada por causa da festa de aniversário de 50 anos de Hitler. ABS() 2012/11/30 Aureliano Guedes > Bruno, no meu if funcionou tanto com && quanto com and. O meu erro mesmo > foi que a regex pegava um espasso. > > Bem a minha duvida ficou em "porque seria prob

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Aureliano Guedes
Bruno, no meu if funcionou tanto com && quanto com and. O meu erro mesmo foi que a regex pegava um espasso. Bem a minha duvida ficou em "porque seria problematico colocar reais em chaves de hash no meu caso?" Se eu fosse pesquisar um valor especifico e tivesse duas ou mais chaves com o mesmo

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Leo Balter
Quero participar dessa discussao antes do 50. Por que tanta peculiariade na dicotomia de popular? Na buzilis da cizania ja nao era mais sobre Perl ou foi impressao minha? Leo Balter - via mobile Em 30/11/2012, às 00:02, Marcio Ferreira escreveu: > 47 > > On Nov 29, 2012 11:35 PM, "Renato

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Marcio Ferreira
47 On Nov 29, 2012 11:35 PM, "Renato Santos" wrote: > > #define float_epsilon 0.1;#define float_equal(a,b) (fabs((a) - (b)) < > float_epsilon) > > *BTW* > > 2012/11/29 Blabos de Blebe > >> float_equal > > > > > -- > Saravá, > Renato CRON > http://www.renatocron.com/blog/ > @renato_cron

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Renato Santos
#define float_epsilon 0.1;#define float_equal(a,b) (fabs((a) - (b)) < float_epsilon) *BTW* 2012/11/29 Blabos de Blebe > float_equal -- Saravá, Renato CRON http://www.renatocron.com/blog/ @renato_cron ___ Ri

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Blabos de Blebe
Um exemplo hipotético... Suponha que não haja escapatória e tenha-se que comparar flutuantes... if ( float_equal( $a, $b ) ) { say 'igual'; } elsif ( $a < $b && !float_equal( $a, $b ) ) { say 'menor'; } else { say 'maior'; } Será que funciona? 2012/11/29 : > Um exemplo mais preciso

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Blabos de Blebe
Só a gente mesmo pra ficar discutindo nota de rodapé de livro :) 2012/11/29 Vinícius Miasato : > já está chegando em 50 mensagens na thread, quem irá citar ele ? > > Em quinta-feira, 29 de novembro de 2012, Blabos de Blebe > escreveu: > >> Só pra ser muito chato: >> popular um hash inteiro já

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Vinícius Miasato
já está chegando em 50 mensagens na thread, quem irá citar ele ? Em quinta-feira, 29 de novembro de 2012, Blabos de Blebe escreveu: > Só pra ser muito chato: > >>> popular um hash inteiro já com os grupos montados, > > http://wiki.mtgsalvation.com/article/Populate > > Popular um hash é neologismo

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Blabos de Blebe
Porra PAC, não pisa fora da faixa, cara! :) http://perldoc.perl.org/perlop.html#Operator-Precedence-and-Associativity É só aplicar as regras de precedência. Parafraseando o perldoc, and é 'equivalent to && except for the very low precedence' É óbvio gente. Assim vcs me envergonham! Game over.

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Blabos de Blebe
Só pra ser muito chato: >> popular um hash inteiro já com os grupos montados, http://wiki.mtgsalvation.com/article/Populate Popular um hash é neologismo de 'populate a hash' que é equivalente a povoar um hash... 2012/11/29 : > Só para ser chato: > > >> popular um hash inteiro já com os grupos

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Bruno Buss
Sério galera, se eu estou escrevendo outra língua que não seja português por favor me avisem. Vou perguntar de novo: por que usar 'and' *no if do Aureliano* está incorreto como 3 pessoas já disseram? Eu não quero saber o que acontece quando uso and e && para encadear uma penca de chamadas de funç

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Tiago Peczenyj
veja este exemplo: https://gist.github.com/4172935 veja como a execução das subrotinas não é alterada, mas o resultado das variaveis é diferente. my $x = a and b and c and ok or nok; my $y = a && b && c && ok || nok; veja que x recebe o valor que a retorna, enquanto y recebe o valor de nok. i

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Bruno Buss
2012/11/29 Bruno Buss > On Thu, Nov 29, 2012 at 10:13 PM, Renato Santos wrote: > >> use && sempre e seja feliz, só use and quando você souber oque está >> fazendo. >> > > Desculpe mas vou discordar que um bom conselho seja "use && sempre e seja > feliz", ainda mais seguido de "só use and quando v

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Bruno Buss
On Thu, Nov 29, 2012 at 10:13 PM, Renato Santos wrote: > use && sempre e seja feliz, só use and quando você souber oque está > fazendo. > Desculpe mas vou discordar que um bom conselho seja "use && sempre e seja feliz", ainda mais seguido de "só use and quando você souber oque está fazendo". Na m

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Tiago Peczenyj
o or é facil my $xxx = open (mimimi) or die "ops.."; eu posso usar o and no mesmo contexto. $self->upload_file_if_necessary($keyname,$file) and $self->change_acl_to_public_read($keyname) and $self->delete_file($file) and $self->on_success($file) or $self->on_error($file) ou seja, se o change

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Renato Santos
pra evitar 'QUANDO EU COMPREI, FUNCIONAVA RAPIDO' 2012/11/29 Tiago Peczenyj > Olha... tinha uma gem pra ruby que adicionava uns "sleeps" no codigo pra > deixar propositalmente lento para demonstrações "enterprise". Afinal se é > rapido, não é sistema web interno corporativo. > -- Sa

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Renato Santos
use && sempre e seja feliz, só use and quando você souber oque está fazendo. o 'and' é praticamente o 'e' da nossa lingua, vc diz pro seu codigo 'faça isso, e isso', ele não é de comparação, embora faça isso também. On Thu, Nov 29, 2012 at 10:09 PM, Bruno Buss wrote: > > > 2012/11/29 > > Seu p

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Tiago Peczenyj
Olha... tinha uma gem pra ruby que adicionava uns "sleeps" no codigo pra deixar propositalmente lento para demonstrações "enterprise". Afinal se é rapido, não é sistema web interno corporativo. 2012/11/29 Renato Santos > kkk curti, boa ideia! > > ai quando as começarem a reclamar que o sistema e

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Bruno Buss
2012/11/29 > Seu primeiro erro é o operador and. No documento perlop: $ perldoc perlop > você vai descobrir o seguinte: > > " Logical And > Binary "and" returns the logical conjunction of the two > surrounding expressions. It's equivalent to && except for > the very low precedenc

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Renato Santos
kkk curti, boa ideia! ai quando as começarem a reclamar que o sistema está lento, é só diminuir o tempo! 2012/11/29 Aureliano Guedes > sleep 1; > -- Saravá, Renato CRON http://www.renatocron.com/blog/ @renato_cron _

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Renato Santos
http://perldoc.perl.org/functions/-X.html procure por -d e por -e e por leia tudo! 2012/11/29 Aureliano Guedes > So aproveitando a oportunidade. > > Estou brincando com brinquedinhos novos. > Mas ainda não entendi uma coisa. > > Aqui eu quero escrever na tela so o que for documento, não q

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Aureliano Guedes
So aproveitando a oportunidade. Estou brincando com brinquedinhos novos. Mas ainda não entendi uma coisa. Aqui eu quero escrever na tela so o que for documento, não quero o que for diretorio. Na unha eu sei fazer, eu quero fazer isso usando o modulo Path::Class. Abaixo não esta dando muito cer

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico thiagoglauco
Só para ser chato: popular um hash inteiro já com os grupos montados, popular adj. 2 g. 1. Relativo ou pertencente ao povo. 2. Que é usado ou comum entre o povo. 3. Que é do agrado do povo. 4. Vulgar, notório. 5. Democrático. s. m. 6. Homem do povo. povoar - Conjugar (povo + -oar) v. tr. 1. F

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Renato Santos
eu prefiro geralmente multiplicar por 1+N casas e usar apenas o numero inteiro, se a quantidade de casas for pequena, *é mais rapido* do que ligar uma lib externa pra processar numeros. ps: teoricamente é mais rapido, não fiz testes para tal 2012/11/29 > Seu primeiro erro é o operador and. No

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico thiagoglauco
Seu primeiro erro é o operador and. No documento perlop: $ perldoc perlop você vai descobrir o seguinte: " Logical And Binary "and" returns the logical conjunction of the two surrounding expressions. It's equivalent to && except for the very low precedence. This means that it s

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Renato Santos
Assim, não sei se tem muita diferença na memoria entre um $h e um %s, eu costumo usar $h por habito mesmo, mas poderia ser push @{$h{$grupo}} sem problemas, talvez até @$h{$grupo} funcione certo O 'evitar o loop' q eu digo, é você popular um hash inteiro já com os grupos montados, por exemplo ,s

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Aureliano Guedes
Renato, fiquei sem entender, no meu caso não esta fazendo so um loop? E qual a diferença entre usar um hash %h ou tranformar $h em um hash?? Desculpe as perguntas é que não faço nenhum curso ligado a computação logo as vezes fico "boiando". Thiago, segue o script caso tenha também algo a modifi

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico thiagoglauco
Onde estou agora o firewall bloqueia o pastebin. Pela sua explicação, verificar por regex seria uma solução segura. O número sera convertido para um string e, se a sua regex prevê uma margem segura para a imprecisão do ponto flutuante na sua aplicação, funciona sem problemas. Em 2012-11-29 16:

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Renato Santos
Usa uma função pra normalizar o valor (multiplica por 10, divide o inteiro por 10) ou alguma coisa que retorne o "grupo" que cada valor se encontra, aí vc faz apenas um loop e um calculo por valor e aí vc faz assim $ref; For (..) { $grupo = funcao($_->{valor}); push @{$ref->{$grupo}}, $_; } O

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Daniel Vinciguerra
Caso a entrada "file($data)->openr();" na linha 9 retorne um filehandle vale a pena dar um "close $file;" antes de retornar o valor da sub também. []'s * Daniel Vinciguerra* Web Solutions Architect and Co-Owner at Bivee http://github.com/dvinciguerra 2012/11/29

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Aureliano Guedes
Nossa, aqui virou uma arena de ideias, da para aprender muita coisa so lendo. O problema é o seguinte, eu tenho uma lista nesse formato: target: 01010101 length: 581 miRNA : hsa-miR-15a length: 22 mfe: -24.4 kcal/mol p-value: 0.334111 position 244 target 5' CUCUCCUGUGGUCUCU G

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico thiagoglauco
Um exemplo mais preciso: $ uname -a SunOS cg01spo 5.10 Generic_13-03 sun4v sparc SUNW,SPARC-Enterprise-T5120 $ perl -E ' if (0.2 > 0.19997){ say "0.2 is greater than 0.19997";} else { say "Floating Point is not true real"};' 0.2 is greater than 0.19997 $

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico thiagoglauco
Não se compara reais por igualdade. Se você tem erro na igualdade, terá nas outras comparações se a diferença entre os números for menor que o maior acréscimo suportado pela plataforma: $ perl -E ' if (0.2 > 0.1999){ say "0.2 is greater than 0.1

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico Blabos de Blebe
Na verdade é o contrário, não? Não se compara reais por igualdade. Se você usa reais como chaves de hash, você tem algum problema... Ao não controlar a representação interna em ponto flutuante, você pode nunca mais alcançar o valor relacionado à chave, se usar um número real como chave, pois qua

Re: [Rio-pm] Chaves de hash

2012-11-29 Por tôpico thiagoglauco
Existe um problema aqui, diferente da comparação. A comparação de reais é problemática devido a estrutura interna do ponto flutuante. NÃO SE COMPARA REAIS POR MAIOR OU MENOR.Isso não é do Perl, mas das regras de aproximação usada pelos processadores. Rounding rules The standard defines five r