Windows系统下如何判断Perl脚本是从终端启动还是GUI双击启动

核心检测逻辑（Windows平台最优） #

使用Win32::Console提供的GetConsoleProcessList方法是当前最准确的实现方案：

• 手动在已打开的终端（cmd/PowerShell）中执行脚本时，当前控制台会同时关联终端进程和Perl进程，返回的进程数≥2
• 双击GUI启动脚本时，系统会临时创建专属控制台，仅关联当前Perl进程，返回的进程数=1

代码实现：

use Win32::Console;
# 检测是否为GUI双击启动
my $is_gui_launch = Win32::Console::GetConsoleProcessList() == 1;

# 脚本末尾添加等待逻辑，仅GUI启动时触发
if ($is_gui_launch) {
    print "$0: 按回车键退出... ";
    $_ = <STDIN>;
}

该方案天然兼容管道输入场景：管道输入时控制台关联进程数依然≥2，不会误触发等待逻辑，完全匹配需求。

备选实现（无Win32::Console依赖） #

如果环境缺少相关模块，可以通过判断父进程是否为资源管理器explorer.exe实现：

use Win32::Process::Info;
my $proc_info = Win32::Process::Info->new();
my ($current_proc) = grep { $_->{ProcessId} == $$ } $proc_info->GetProcInfo();
my ($parent_proc) = grep { $_->{ProcessId} == $current_proc->{ParentProcessId} } $proc_info->GetProcInfo();
my $is_gui_launch = lc($parent_proc->{Name}) eq 'explorer.exe';

注意：如果通过第三方启动器、计划任务等非终端/非explorer的渠道启动脚本，该方法会出现误判，优先推荐第一种方案。

跨平台兼容扩展（含Linux/macOS） #

如果需要适配类Unix系统，可以补充对应平台的检测逻辑：

my $is_gui_launch;
if ($^O eq 'MSWin32') {
    use Win32::Console;
    $is_gui_launch = Win32::Console::GetConsoleProcessList() == 1;
} else {
    # 类Unix平台判断：关联终端但不存在TERM环境变量时为GUI启动
    $is_gui_launch = -t STDIN && !exists $ENV{TERM};
}

# 统一触发等待逻辑
if ($is_gui_launch) {
    print "$0: 按回车键退出... ";
    <STDIN>;
}

内容的提问来源于stack exchange，提问作者Wayne E Robertz