Skip to content

Instantly share code, notes, and snippets.

Created Mar 7, 2009
What would you like to do?
use Ghetto;
for =$*IN -> $line {
unless $line ~~ /^\#/ {
my $file = $line.split('/').pop;
my $cmd = qq{dcop amarok collection query "SELECT title,, FROM tags JOIN artist ON = artist JOIN album ON = 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