Mac平台下Perl脚本如何打开新终端并传递执行命令

Mac的Terminal.app不像gnome-terminal那样支持直接通过命令行参数传递待执行命令，需要借助AppleScript实现，下面是两种可行方案：

方案1：通过open命令传递AppleScript指令 #

利用open的--args参数给Terminal传递启动时执行的AppleScript脚本，让新终端窗口直接运行指定命令：

my $thread_id = $i; # 你的线程ID变量
my $target_cmd = "perl pullauta startthread $thread_id";
# 构造open命令，通过-e参数让Terminal执行指定脚本
system(qq{open -n /System/Applications/Utilities/Terminal.app --args -e 'do script "$target_cmd"'});

方案2：直接调用osascript控制Terminal #

这种方式更简洁，直接通过AppleScript命令让Terminal打开新窗口并执行命令，无需依赖open的固定路径：

my $thread_id = $i;
my $target_cmd = "perl pullauta startthread $thread_id";
# 用osascript执行AppleScript指令
system(qq{osascript -e 'tell application "Terminal" to do script "$target_cmd"'});

关键注意点 #

• 如果命令包含空格、双引号这类特殊字符，必须先转义，避免AppleScript解析失败：

  my $target_cmd = "perl pullauta startthread '$i'";
  $target_cmd =~ s/"/\\"/g; # 将命令中的双引号转义为\"
  system(qq{osascript -e 'tell application "Terminal" to do script "$target_cmd"'});
  

• 确保perl在新终端的环境变量PATH中可访问，若使用自定义安装的Perl（如brew安装），建议写绝对路径，比如/usr/local/bin/perl。

内容的提问来源于stack exchange，提问作者StefanK