Perl脚本（用于调用Mac :: AppleScript Perl模块）

Question

我正在使用Shell和AppleScript脚本设置一些自动化。 我的几个模块需要将几个参数传递给AppleScript。 尽管有几种方法可以这样做，但是经过一些研究，我找到了“ Mac :: AppleScript Perl模块”，它看起来确实很有前途。 但是，它需要/ usr / local / bin中的简短.pl脚本。 我发现的唯一示例有两个语法错误，而我在Perl中完全没有经验。

我已经尝试过根据我使用的语言使用的语言猜测可能会引发什么错误，但是即使我可以识别出变量没有在某些地方扩展，但我尝试纠正它会导致进一步的错误而且我一直在破解它几个小时。 有人可以看看并告诉我我可以解决的语法问题吗？

#!/usr/bin/perl

use strict;
use Mac::AppleScript qw/ RunAppleScript /;

if( $#ARGV = 0) ? '"'.join('","',@ARGV).'"' : "";
my $rtn = RunAppleScript( "return run script alias ((POSIX file ""
    .$script.'") as text) with parameters {'.$args.'}' ),"n"
        or die "AppleScript Error: $!";

$rtn =~ s/(^"|"$)//g;
print $rtn,"n";

Answer 1

问题：

• 用双引号括起来的字符串文字中有一个未转义的" 。
• 您使用从未声明或初始化的变量。
• 您的代码中有一个流浪,"n" 。
• 您的代码遭受代码注入错误的困扰。
• 错误消息位于$@而不是$! 。

固定：

sub text_to_as_lit { '"'.( $_[0] =~ s/([\\"])/\\$1/rg ).'"' }  #'

my ($script, @args) = @ARGV;

my $rtn = RunAppleScript(sprintf(
   "return run script alias ((POSIX file %s) as text) with parameters {%s}",
   text_to_as_lit($script),
   ( join ',', map text_to_as_lit($_), @args ),
))
    or die("AppleScript Error: $@");

未经测试。