Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
iTunesで選択範囲のアルバムアーティストが空の場合、アーティストをアルバムアーティストとして設定する(OSX 10.9用)
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use 5.10.0;
binmode(STDOUT,':utf8');
# --------------------------------------------------------------
# iTunesで選択範囲のアルバムアーティストが空の場合
# アーティストをアルバムアーティストとして設定する
# OSX 10.9用
# --------------------------------------------------------------
use Mac::AppleScript::Glue;
my $itunes = new Mac::AppleScript::Glue::Application('iTunes');
foreach my $track(@{$itunes->selection}) {
# $track のエレメント・プロパティーは
# AppleScriptエディタ -> ライブラリ -> iTunes -> iTunes Suite -> [C] track
# で確認できる。
local $@;
eval {
if($track->album_artist eq '') {
my $artist=ed($track->artist);
say $artist;
$track->set( album_artist => $artist );
}
};
if($@) { warn $@; }
}
sub ed {
my $buf=shift; utf8::decode($buf); return $buf;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment