[Rio-pm] Chaves de hash

[Aureliano Guedes]

Biólogo não, biomedico, acredite essa diferença fere nossos sentimentos. hahaha

> Hashs não têm mais de uma chave igual. Ele vai mudar o valor 
> relacionado à chave e não criar outra chave com o mesmo valor.

Agora sim, isso é um problemão. Estarei perdendo dados assim.

Como poderia reverter isso então??

Faria a chave ser valor e o valor ser chave?? Quais minhas opções??

sub h_energy{         
    my $self = shift;

    my $data = $self->h_data || die "cannot find data";

    my $file = file("$data")->openr();

    my %hmfe = ();         
    my $mirna;

    my $record;

     
    while (my $linha = <$file>) {

        if ( $linha =~ m{target:.*} ) {

            $record = $linha . $record if ($record);

            $hmfe{$mirna} = $record if ($mirna);

            $mirna = $+{mirna};

            $record = q() if ($record);

        }

        elsif ($linha =~ m{mfe:\s+(\S+)\s+kcal/mol}){

            $mirna = $1;

            $record .= $linha;

        }

         else {

            $record .= $linha;

         }

    }

    return %hmfe;

}

> Date: Fri, 30 Nov 2012 10:30:17 -0200
> From: thiagoglauco em ticursos.net
> To: rio-pm em pm.org
> Subject: Re: [Rio-pm] Chaves de hash
> 
> Hashs não têm mais de uma chave igual. Ele vai mudar o valor 
> relacionado à chave e não criar outra chave com o mesmo valor.
> 
> Em 2012-11-30 00:24, Aureliano Guedes escreveu:
> > 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 valor real seria problema
> > mas no meu caso umporta que o valor esteja em um determinado
> > intervalo, podem ter 20 chaves iguais, estando no intervalo
> > eu quero os 20 valores. 49??
> >
> > -------------------------
> > From: leonardo.balter em gmail.com
> > Date: Fri, 30 Nov 2012 00:15:50 -0200
> > To: rio-pm em pm.org
> > Subject: Re: [Rio-pm] Chaves de hash
> >
> > 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
> > <marciodesouzaferreira em gmail.com> escreveu:
> >
> >> 47
> >>
> >> On Nov 29, 2012 11:35 PM, "Renato Santos" <renato.cron em gmail.com> 
> >> wrote:
> >>
> >>> #define float_epsilon 0.00001;
> >>> #define float_equal(a,b) (fabs((a) - (b)) < float_epsilon)
> >>>
> >>> BTW
> >>>
> >>> 2012/11/29 Blabos de Blebe <blabos em gmail.com>
> >>>
> >>>> float_equal
> >>>
> >>> --
> >>>
> >>> Saravá,
> >>> Renato CRON
> >>>
> >>> http://www.renatocron.com/blog/ [1]
> >>> @renato_cron [2]
> >>>
> >>> _______________________________________________
> >>> Rio-pm mailing list
> >>> Rio-pm em pm.org
> >>> http://mail.pm.org/mailman/listinfo/rio-pm [3]
> >
> >> _______________________________________________
> >> Rio-pm mailing list
> >> Rio-pm em pm.org
> >> http://mail.pm.org/mailman/listinfo/rio-pm [3]
> >
> > _______________________________________________ Rio-pm mailing list
> > Rio-pm em pm.org http://mail.pm.org/mailman/listinfo/rio-pm
> >
> > Links:
> > ------
> > [1] http://www.renatocron.com/blog/
> > [2] http://twitter.com/#%21/renato_cron
> > [3] http://mail.pm.org/mailman/listinfo/rio-pm
> >
> > _______________________________________________
> > Rio-pm mailing list
> > Rio-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/rio-pm
> 
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
 		 	   		  
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20121130/6ce119b0/attachment.html>