我试图从Perl中发送一个OSX命令.但是我很茫然,因为该命令包含引号和反引号,我无法弄清楚如何转义这两个字符并获得一个功能系统命令.
这是终端命令：
/usr/bin/osascript -e’告诉应用程序“系统事件”告诉进程“终端”按键命令“k”使用命令’
感谢您的任何见解！
解决方法
您可以使用q
quote-like operator,其工作方式与普通单引号(或qq,相当于双qoute)相同.这使您可以使用选择的分隔符.
my $cmd = q{/usr/bin/osascript -e 'tell application "System Events" to tell process "Terminal" to keystroke "k" using command down'};
system $cmd;
您也可以将列表传递给系统,将每个参数作为列表项.这样您就不必引用shell本可以解释的参数：
system('/usr/bin/osascript','-e','tell application "System Events" to tell process "Terminal" to keystroke "k" using command down');