m3u2fru.pl6

#!/home/frew/personal/rakudo/perl6

use Ghetto;

for =$*IN -> $line {
   unless $line ~~ /^\#/ {
      my $file = $line.split('/').pop;

      my $cmd = qq{dcop amarok collection query "SELECT title,artist.name,album.name FROM tags JOIN artist ON artist.id = artist  JOIN album ON album.id = album WHERE url LIKE \\"%/$file\\""};
      my ( $track,$artist,$album ) = Ghetto::run($cmd).split("\n");
      say $track;
      say $artist;
      say $album;
      say '--';
   }
}