Какой эквивалент Perl для следующих вызовов PHP?
$_SERVER["HTTP_HOST"]
$_SERVER["REQUEST_URI"]
Любая помощь будет высоко ценится.
Переменные среды представляют собой серию скрытых значений, которые веб-сервер отправляет каждому запускаемому вами 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
Другой способ, помимо переменной среды, - использовать CGI:
use strict;
use warnings;
use CGI ;
print CGI->new->url();
Кроме того, он также предлагает множество манипуляций CGI, таких как как параметры доступа отправляются на ваш cgi, файлы cookie и т. д.
В какой среде вы работаете? Если это сценарий CGI, попробуйте:
use Data::Dumper;
print Dumper \%ENV;