I haven't quite sorted out the more complex data structure in perl yet.
Anyhow, I need to take the following hash of arrays...

my %tracks = ();

push @{$tracks{$filename}},
        $_,                                     # tracks.filename                      
                                         $File::Find::dir . '/',         #
tracks.filepath
        $artist,                                # artist.artist_name
        $album,                                 # album.title
        $tracknum,                              # tracks.track_num
        $title,                                 # tracks.title
        $genre;                                 # tracks.title

...and then extract the data...(This isn't working)

for my $row ( keys %tracks ){
        (my $qualified_filename, my $filename, my $filepath, $artist, $album,
                                $tracknum, $title, $genre) = "$row @{ $tracks{$row} }";
{       

...what I end up with, is ALL my data in $qualified_filename.

Solutions? 
Thanks,
Patrick

Reply via email to