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 -> $track,$artist,$album,$sep {
my $cmd = qq{dcop amarok collection query "SELECT url FROM tags JOIN artist ON artist.id = artist JOIN album ON album.id = album WHERE artist.name = \\"$artist\\" and album.name = \\"$album\\" and title = \\"$track\\""};
# this insanity is to take the first character off because amaroK adds a
# . to the front of all the file names. There's probably a better way
# to do this.
say Ghetto::run($cmd).split("\n")[0].reverse.chop.reverse;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment