perl - 如何在 Perl 中区分 CLI 和 CGI​​ 模式

Question

我应该编写一个 Perl 脚本，它既可以在命令行上运行，也可以作为 CGI 脚本运行。我一直无法确定应该如何区分这两种模式。

那么你能告诉我如何实现逻辑吗？

Answer 1

您可以检查是否存在任意数量的 CGI environment variables ，例如:

if ($ENV{GATEWAY_INTERFACE})
{
      print "Content-type: text/plain\n\nLooks like I'm a CGI\n";
}
else
{
      print "I'm just a plain command line program\n";
}