Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: Hashes hunt me even when I sleep....

by le (Friar)
on Oct 05, 2000 at 23:55 UTC ( #35468=note: print w/replies, xml ) Need Help??


in reply to Hashes hunt me even when I sleep....

my %songs; while (<DATA>) { my ($myArtist, $myAlbum, $mySong, $myLocation) = split /\|/; $songs{$myArtist}->{$myAlbum}->{$mySong} = $myLocation; } foreach my $myArtist (sort keys %songs) { print "$myArtist:\n"; foreach my $myAlbum (sort keys %{ $songs{$myArtist} }) { print "\t$myAlbum\n"; print "\t\tSongs:\n"; foreach my $mySong (sort keys %{ $songs{$myArtist}->{$myAlbum} + }) { print "\t\t\t$mySong: $songs{$myArtist}->{$myAlbum}->{$myS +ong}\n"; } } }

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2022-12-03 09:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?