我可以使用Perl在iTunes(在Mac上)评价一首歌吗？

Question

我试过搜索CPAN.我发现Mac::iTunes,但不是一种为特定曲目分配评级的方法.

Answer 1

如果你不喜欢Mac :: AppleScript,它只需要大量AppleScript文本并运行它,你可能更喜欢Mac :: AppleScript :: Glue,它提供了一个更面向对象的界面.这相当于Iamamac的示例代码:

#!/usr/bin/env perl
use Modern::Perl;
use Mac::AppleScript::Glue;
use Data::Dumper;

my $itunes = Mac::AppleScript::Glue::Application->new('iTunes');
# might crash if iTunes isn't playing anything yet
my $track = $itunes->current_track;
# for expository purposes, let's see what we're dealing with
say Dumper \$itunes, \$track;

say $track->rating; # initially undef
$track->set(rating => 100);
say $track->rating; # should print 100

该模块所做的就是构建一大堆AppleScript,运行它,然后将它们分成另一个AppleScript表达式,它可以在下一个命令中使用._ref运行上述脚本时,您可以在track对象的值中看到它.因为它正在粘贴和解析AppleScript,所以这个模块不会比任何其他基于AppleScript的方法快,但它确实允许你在你的脚本中散布其他Perl命令,它让你的代码看起来更像Perl,这是值得的.