Что такое Perl эквивалент $ _SERVER PHP […]?

Какой эквивалент Perl для следующих вызовов PHP?

$_SERVER["HTTP_HOST"]
$_SERVER["REQUEST_URI"]

Любая помощь будет высоко ценится.

6
задан brian d foy 9 March 2016 в 18:13
поделиться

3 ответа

Переменные среды представляют собой серию скрытых значений, которые веб-сервер отправляет каждому запускаемому вами CGI. Ваш CGI может анализировать их и использовать данные, которые они отправляют. Переменные среды хранятся в хэше % ENV .

Например, $ ENV {'HTTP_HOST'} предоставит имя хоста вашего сервера.

#!/usr/bin/perl

print "Content-type:text/html\n\n";
print <<EndOfHTML;
<html><head><title>Print Environment</title></head>
<body>
EndOfHTML

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

print "</body></html>";

Подробнее см. Переменные среды CGI

6
ответ дан 8 December 2019 в 04:07
поделиться

Другой способ, помимо переменной среды, - использовать CGI:


use strict;
use warnings;
use CGI ;

print CGI->new->url();

Кроме того, он также предлагает множество манипуляций CGI, таких как как параметры доступа отправляются на ваш cgi, файлы cookie и т. д.

13
ответ дан 8 December 2019 в 04:07
поделиться

В какой среде вы работаете? Если это сценарий CGI, попробуйте:

use Data::Dumper;
print Dumper \%ENV;
2
ответ дан 8 December 2019 в 04:07
поделиться
Другие вопросы по тегам:

Похожие вопросы: