Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: More efficient way to lookup with 2 AoA's.

by bgreenlee (Friar)
on Jul 27, 2004 at 21:12 UTC ( #377865=note: print w/replies, xml ) Need Help??


in reply to More efficient way to lookup with 2 AoA's.

I wrote something up, but Zaxo (and now rir) beat me to the punch, so instead here's some code to convert your arrays into a single hash:

my %gene = (); foreach (@gene_score) { $gene{$_->[0]}->{score} = $_->[1]; } foreach (@gssc) { $gene{$_->[0]}->{start} = $_->[1]; $gene{$_->[0]}->{stop} = $_->[2]; $gene{$_->[0]}->{chr} = $_->[3]; }

Now %gene looks like:

%gene = ( gene_name_0 => { score => 'score_0', start => 'start_0', stop => 'stop_0', chr => 'chr_0' }, gene_name_1 => { score => 'score_1', ... );

Brad

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://377865]
help
Chatterbox?
[shmem]: conditions?
[shmem]: tell them
[Discipulus]: nettop I have some spare time..
[Discipulus]: do you have some spare money? ;=)

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (6)
As of 2018-04-20 17:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?