Perl:带引号和反引号的系统命令

Question

我试图从Perl中发送一个OSX命令.但是我很茫然,因为该命令包含引号和反引号,我无法弄清楚如何转义这两个字符并获得一个功能系统命令.

这是终端命令:
/usr/bin/osascript -e 'tell application "System Events" to tell process "Terminal" to keystroke "k" using command down'

感谢您的任何见解!

Answer 1

你可以使用q 类似引号的运算符,它的工作方式与普通的单引号相同(或者qq相当于double qoute).这使您可以使用选择的分隔符.

my $cmd = q{/usr/bin/osascript -e 'tell application "System Events" to tell process "Terminal" to keystroke "k" using command down'};
system $cmd;

您还可以将列表传递system给外部程序的每个参数作为列表项.这样您就不必引用shell本可以解释的参数:

system('/usr/bin/osascript', '-e', 'tell application "System Events" to tell process "Terminal" to keystroke "k" using command down');