Товарищи!
поставил и настроил mod_perl
теперь при вызове localhost/do_it вызывается мой do_it.pm, но вот вопрос. Как мне при вызове localhost/do_it?page=main;lang=ru получить доступ к передаваемым параметрам (page и lang)?
заранее благодарен,
athilson
Последние комментарии
-
OlegL, 17 декабря 2023 года в 15:00 →
Перекличка
21
-
REDkiy, 8 июня 2023 года в 9:09 →
Как «замокать» файл для юниттеста в Python?
2
-
fhunter, 29 ноября 2022 года в 2:09 →
Проблема с NO_PUBKEY: как получить GPG-ключ и добавить его в базу apt?
6
-
Иванн, 9 апреля 2022 года в 8:31 →
Ассоциация РАСПО провела первое учредительное собрание
1
-
Kiri11.ADV1, 7 марта 2021 года в 12:01 →
Логи catalina.out в TomCat 9 в формате JSON
1
DevOps as a Service from Palark
24/7 SRE & DevOps service to cover all your Kubernetes needs.
use CGI; my $in=CGI->new; my $page = $in->param('page'); my $lang = $in->param('lang'); print "(page, lang) == ('$page', '$lang')\n"; /* альтернатива (без использования CGI; вытаскивает все параметры и кидает их в %rvars{'имя_параметра'}): */ my @vars=split(/&|;/,$ENV{'QUERY_STRING'}); my %rvars; foreach (@vars){ $rvars{$1}=$2 if ($_=~/(^.+)=(.*)$/); } foreach (keys %rvars){ print "$_ == '$rvars{$_}'\n"; }OK.
я думал, что use CGI можно использовать только для CGI приложений, а у меня mod (sub handler {…}).
некогда не понимал зачем так писать…можно же короче:
use CGI;
my $page = param(’page’);
my $lang = param(’lang’);