Skip to content

Instantly share code, notes, and snippets.

Created Mar 7, 2009
What would you like to do?
use Ghetto;
for =$*IN -> $track,$artist,$album,$sep {
my $cmd = qq{dcop amarok collection query "SELECT url FROM tags JOIN artist ON = artist JOIN album ON = album WHERE = \\"$artist\\" and = \\"$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