[Playlist] problem with perl xspf arrays

[Sebastian Pipping]

Ross Mohn wrote:
>   print "Link    : " . $track->links    . "\n" if ($track->links);
>   print "Link    : " . $track->{links}  . "\n" if ($track->links);
>   print "Link    : " . $track->{links}->[0]  . "\n" if ($track->links);
>   print "Link    : " . $track->links->[0] . "\n" if ($track->links);
> }

-------------------------------------------------------------
This code works for me:

  my @links = $track->links;
  print "Link rel of first link  : " . $links[0][0] . "\n" if ($track->links);
  print "Link body of first link : " . $links[0][1] . "\n" if ($track->links);

I'm not a Perl pro - I was not able to remove the extra variable.



Sebastian