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