如何使用Perl的CGI.pm识别协议（http与https）

Question

我正在编辑一个在HTTPS下运行时进行特殊处理的Perl CGI应用程序。

现在，我试图通过在请求URI中手动查找“https：//”来检测它：

    my $is_secure = $cgi->request_uri =~ m{^https://};

有一个稍微清洁的方式这样做？

Answer 1

CGI.pm有一个https()方法，根据文档 ：

对SSL协议生效时存在的HTTPS环境变量进行操作。 可用于确定SSL是否已打开。

这可能就是你要找的东西。 如果没有参数，它将返回HTTPS环境变量列表。

Answer 2

使用$ ENV {'HTTPS'}

my $is_secure = $ENV{'HTTPS'};

或者更好，只需使用$ ENV {'HTTPS'}而不是$ is_secure