Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: newbie hashes question

by Trimbach (Curate)
on Jun 05, 2002 at 11:32 UTC ( #171798=note: print w/replies, xml ) Need Help??


in reply to newbie hashes question

What you want to create is a hash of arrays. Your code was close, although I'm not sure why you split $seq again... (unless $seq contains a list of items you need to break out, in which case you want a hash of arrays of arrays). Something like this should work:
while (<MYFILE>) #this is my opened file { { next if /^\s*File/; #remove line starting with filename my ($id, $seq) = split; # The my is important push @{$species{$id}}, $seq; } } # later... while ( ($key, $sequence) = each %species ) { print $key, "\t", join ":", @$sequence; } # Which will out your key, followed by a tab, # followed by all your sequences (however many # there are) separated by colons
Refer to perlman:perlref for more details on references and why they're a good thing. If you need a hash of arrays of arrays that's not a problem, but it complicates the assignment and de-referencing of your hash, and is an exercise left to the reader. :-D

Gary Blackburn
Trained Killer

Edited: after re-reading what the poster really wanted.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://171798]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (3)
As of 2021-10-27 12:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My first memorable Perl project was:







    Results (92 votes). Check out past polls.

    Notices?