Skip to content

Instantly share code, notes, and snippets.

@frioux
Created Mar 7, 2009
Embed
What would you like to do?
#!/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 '--';
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment