如何确定脚本是在Perl中的系统调用还是qx调用中执行?

system 或 qx )?

$ cat foo.pl
print "foo";
print "\n" if not $in_qx;  # or the like.

我意识到如果脚本是通过 exec

我确信这一点 系统 fork 我知道 叉 可以返回一个可变值,该值取决于您是在父进程中还是在子进程中。不确定 qx .

不管怎样,我不确定如何判断我是否处于 在没有实际执行 叉 .