Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.

iTunes Cleaner 4 Comments More | Login | Reply /

 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • this is a huge problem for me, I like to have a really messy mp3 folder and then clean it all up and end up with tons of dead links in iTunes. I try running this on my jaguar machine and I get this: [mogu:~] rex% perl -MMac::Glue -le '$d = 0; $i = new Mac::Glue "iTunes"; for $t ($i->obj(tracks => library_playlist => 1)->get) { if ($t->prop("location")->get eq "msng") { print join " - ", map { $t->prop($_)->get } qw(name artist album); $t->delete if $d }}' No application glue for
    • shit, I guess pre tags don't work.

      [mogu:~] rex% perl -MMac::Glue -le '$d = 0; $i = new Mac::Glue "iTunes"; for $t ($i->obj(tracks => library_playlist => 1)->get) { if ($t->prop("location")->get eq "msng") { print join " - ", map { $t->prop($_)->get } qw(name artist album); $t->delete if $d }}'
      No application glue for 'iTunes' found in '/Library/Perl/Mac/Glue/glues' at -e line 1
      [mogu:~] rex%
      • You need to create one (you read the Mac::Glue documentation [cpan.org]*, right? ;-).

        % gluemac /Applications/iTunes.app

        You may need to use sudo, or otherwise run as root, as the glue is by default saved into your perl's sitelib path.

        That will create the necessary glue for whatever app you wish to script with Mac::Glue. Use gluedoc iTunes to read the documentation for that created glue file.

        Also, <ECODE> tags are the way to do code on use.perl.org (and many other Slash sites, like Slashdot).

        * The docs are s

Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.