如何判断Perl程序是否属于Shell逻辑运算序列？

好问题！要判断Perl脚本是否属于&&/||/;这类Shell逻辑操作链的一部分（而非作为独立的简单命令运行），确实没有像-t STDOUT那样直接的内置检测方式，但我们可以通过进程关系分析来实现近似的判断，以下是几种可行的思路：

1. 检查父进程的命令行（最实用的场景） #

Shell在执行脚本形式的逻辑链（比如bash -c 'my-script && echo ok'）或者Shell脚本内部的逻辑命令时，父进程的命令行中会包含逻辑分隔符。我们可以通过读取父进程的命令行来判断：

Linux下的实现（依赖/proc文件系统） #

use strict;
use warnings;

sub is_in_shell_logic_chain {
    my $ppid = getppid();
    # 读取父进程的cmdline（proc文件系统用null字符分隔参数）
    open my $fh, '<', "/proc/$ppid/cmdline" or do {
        warn "无法读取父进程信息: $!";
        return 0;
    };
    my $parent_cmd = <$fh>;
    close $fh;
    
    # 转换为可读的空格分隔格式
    $parent_cmd =~ s/\0/ /g;
    # 检查是否包含Shell逻辑/命令分隔符
    return $parent_cmd =~ /(&&|\|\||;)/ ? 1 : 0;
}

# 测试调用
if (is_in_shell_logic_chain()) {
    print "脚本处于Shell逻辑操作序列中\n";
} else {
    print "脚本作为独立简单命令运行\n";
}

macOS/BSD下的实现（使用ps命令） #

use strict;
use warnings;

sub is_in_shell_logic_chain {
    my $ppid = getppid();
    # 通过ps获取父进程的完整命令行
    my $ps_output = `ps -o args= -p $ppid`;
    chomp $ps_output;
    
    # 检查逻辑分隔符
    return $ps_output =~ /(&&|\|\||;)/ ? 1 : 0;
}

# 测试调用
if (is_in_shell_logic_chain()) {
    print "脚本处于Shell逻辑操作序列中\n";
} else {
    print "脚本作为独立简单命令运行\n";
}

局限性：

• 交互式Shell场景无效：如果是在终端输入my-script && echo ok，父Shell的命令行只会显示bash/zsh本身，不会包含你输入的逻辑链内容，无法检测。
• 存在误判可能：如果父进程的命令行中偶然包含&&等符号（比如脚本参数），会出现误判。

2. 基于进程组的启发式检测 #

通过POSIX模块获取进程组ID，判断当前进程与父进程的进程组关系：

use strict;
use warnings;
use POSIX qw(getpgrp getpgid);

sub is_in_non_simple_cmd {
    my $my_pgrp = getpgrp();
    my $parent_pgrp = getpgid(getppid());
    
    # 如果当前进程组与父进程组不同，说明可能处于管道、逻辑链或后台作业中
    return $my_pgrp != $parent_pgrp ? 1 : 0;
}

局限性：

无法区分逻辑链和其他非简单命令场景（比如管道my-script | grep foo、后台作业my-script &），只能判断是否为“非简单命令”，不能精准定位到逻辑操作序列。

总结 #

目前没有完美的方法能100%准确检测所有场景，因为Shell不会给逻辑链中的子进程传递特殊标识。如果你的使用场景主要是非交互式的脚本调用，第一种方法基本能满足需求；如果是交互式场景，暂时没有可靠的检测方式。

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