Getting Browsers Information from HEADER

最新推荐文章于 2020-11-29 21:11:18 发布

原创最新推荐文章于 2020-11-29 21:11:18 发布 · 86 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#Perl #CGI #HTML

UI 专栏收录该内容

122 篇文章

订阅专栏

本文介绍如何使用Perl语言结合CGI模块获取客户端浏览器信息及HTTP头部信息，包括IP地址、国家代码、国家名称等，通过模板展示HTML文件，并使用PurePerl实现IP信息显示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Getting Browsers Information from HEADER

I use perl and CGI to get the HEADER informations.

I use perl template to show the HTML files.

I use PurePerl to show the IP Informations.

perl file Action.pl:
use CGI;
use Template;
use Geo::IP::PurePerl;

my $gi = Geo::IP::PurePerl->open("/usr/local/share/GeoIP/GeoIP.dat", GEOIP_STANDARD);
my $clientIp = $ENV{REMOTE_ADDR};

my $q = CGI->new;
my $actionName = $q->param('actionName');
$h = $q->header();

my $str = "";
while (my ($key,$value)=each %ENV){
$str = $str . " $key===>$value\n";
}

my $vars = {
clientIp => $clientIp,
countryCode => $countryCode,
countryName => $countryName,
records => $record_str,
ispName => $ispName,
remoteHost => $ENV{REMOTE_HOST},
remotePort => $ENV{REMOTE_PORT},
remoteUser => $ENV{REMOTE_USER},
callingPage => $ENV{HTTP_REFERER},
requestMethod => $ENV{REQUEST_METHOD},
hostServerAddress => $ENV{HTTP_HOST},
requestURI => $ENV{REQUEST_URI},
userAgent => $ENV{HTTP_USER_AGENT},
httpAccept => $ENV{HTTP_ACCEPT},
httpAcceptCharset => $ENV{HTTP_ACCEPT_CHARSET},
httpAcceptEncoding => $ENV{HTTP_ACCEPT_ENCODING},
httpAcceptLanguage => $ENV{HTTP_ACCEPT_LANGUAGE},
httpCookie => $ENV{HTTP_COOKIE},
contentType => $ENV{CONTENT_TYPE},
contentLength => $ENV{CONTENT_LENGTH},
header => $h,
actionName => $actionName,
str => $str,
};