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
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
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
$
$
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
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 http://github.com/dvinciguerra
2012/11/29
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
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
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
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
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 thiagogla...@ticursos.net
Seu primeiro
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.
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
http://perldoc.perl.org/functions/-X.html
procure por -d e por -e e por leia tudo!
2012/11/29 Aureliano Guedes guedes_1...@hotmail.com
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
pra evitar 'QUANDO EU COMPREI, FUNCIONAVA RAPIDO'
2012/11/29 Tiago Peczenyj tiago.pecze...@gmail.com
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
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
2012/11/29 Bruno Buss bruno.b...@gmail.com
On Thu, Nov 29, 2012 at 10:13 PM, Renato Santos renato.c...@gmail.comwrote:
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
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.
isso
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 thiagogla...@ticursos.net:
Só para ser chato:
popular um hash
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.
já está chegando em 50 mensagens na thread, quem irá citar ele ?
Em quinta-feira, 29 de novembro de 2012, Blabos de Blebebla...@gmail.com
escreveu:
Só pra ser muito chato:
popular um hash inteiro já com os grupos montados,
http://wiki.mtgsalvation.com/article/Populate
Popular um hash é
Só a gente mesmo pra ficar discutindo nota de rodapé de livro :)
2012/11/29 Vinícius Miasato viniciusmias...@gmail.com:
já está chegando em 50 mensagens na thread, quem irá citar ele ?
Em quinta-feira, 29 de novembro de 2012, Blabos de Blebebla...@gmail.com
escreveu:
Só pra ser muito chato:
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 thiagogla...@ticursos.net:
#define float_epsilon 0.1;#define float_equal(a,b) (fabs((a) -
(b)) float_epsilon)
*BTW*
2012/11/29 Blabos de Blebe bla...@gmail.com
float_equal
--
Saravá,
Renato CRON
http://www.renatocron.com/blog/
@renato_cron http://twitter.com/#!/renato_cron
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 marciodesouzaferre...@gmail.com
escreveu:
47
On
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
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 guedes_1...@hotmail.com
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
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 renato.c...@gmail.com
eu com a mania de corrigir o certo! é esteja mesmo!
2012/11/30 Renato Santos renato.c...@gmail.com
estej*e*
--
Saravá,
Renato CRON
http://www.renatocron.com/blog/
@renato_cron http://twitter.com/#!/renato_cron
___
Rio-pm mailing list
28 matches
Mail list logo