Perl CGI获得用户的用户代理

Question

我有Perl CGI页面，（。pl扩展名）。如何获取人员原始用户代理字符串？
有很多方法可以在Javascript中实现（我曾经这样做过），虽然我宁愿转到完全Perl，而不是使用一些Javascript和一些Perl。

例如，获取一个人的IP：$ ENV {REMOTE_ADDR}

Answer 1

用户代理存储在$ENV{HTTP_USER_AGENT}

中

Answer 2

使用CGI模块：

#!/usr/bin/perl -wT
use strict;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

print header;
print start_html("Environment");

foreach my $key (sort(keys(%ENV))) {
   print "$key = $ENV{$key}<br>\n";
}

print end_html;

Answer 3

正如人们已经提到的，它始终在$ENV{HTTP_USER_AGENT}变量中可用。但是如果您使用的是CGI.pm，您也可以通过调用user_agent()函数来获取它。