Hashes #5

#0 | #1 | #2 | #3 | #4 | #5 | #6 | #7

While I'd love to maintain my music collection forever, stuff happens and we may no longer have a particular CD. Now we have to delete it from our library.

print "Deleting 'Aural Float - Freefloat' ...\n";

delete $music{'Aural Float'}{'Freefloat'}; # THAT'S IT!

($Andx,$Cndx) = (1,1); # reset counters

foreach $artist (sort keys (%music)) {
    print "$Andx $artist\n"; 
    $Andx++;
    $Cndx=1; # initialize for each artist
    foreach $cd (sort keys $music{$artist}) {
        print "\t $Cndx $cd\n"; 
        $Cndx++;
        foreach $tracknum (sort keys $music{$artist}{$cd}) {
            print "\t\t$tracknum $music{$artist}{$cd}{$tracknum}\n";
       }
    }
}

Remember to reset any counters you may be using ($Andx and $Cndx) after deletions.

A good exercise may be to add fields like 'Genre' and 'Track Length'.