Skip to content

Instantly share code, notes, and snippets.

@colomon
Created November 6, 2011 02:13
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save colomon/1342361 to your computer and use it in GitHub Desktop.
Save colomon/1342361 to your computer and use it in GitHub Desktop.
constant $TAGLIB = "taglib-sharp, Version=2.0.4.0, Culture=neutral, PublicKeyToken=db62eba44689b5b0";
constant TagLib-File = CLR::("TagLib.File,$TAGLIB");
constant TagLib-Tag = CLR::("TagLib.Tag,$TAGLIB");
for lines() -> $filename {
try {
my $file = TagLib-File.Create($filename);
unless $file.Tag.JoinedPerformers ~~ m/\S/ && $file.Tag.Title ~~ m/\S/ {
say $filename;
}
CATCH { say "Error reading $filename" }
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment