я сейчас наверное с ума сойду с этой темой
ну ни как не могу собрать массив из выделенных чекбоксов, делаю форму по типу встроенного примера в перле:
start_form,
"What\'s your name? ",textfield(\'name\'),p,
"What\'s the combination?",
checkbox_group(-name=>\'words\',
-values=>[\'eenie\',\'meenie\',\'minie\',\'moe\'],
-defaults=>[\'eenie\',\'moe\']),p,
"What\'s your favorite color?",
popup_menu(-name=>\'color\',
-values=>[\'red\',\'green\',\'blue\',\'chartreuse\']),p,
submit,
end_form,
выходит на странице что то типа этого:
eenie
meenie
minie
moe
далее обрабатываю, как в примере
if (param) {
print
"Your name is ",em(param(\'name\')),p,
"The keywords are: ",em(join(", ",param(\'words\'))),p,
"Your favorite color is ",em(param(\'color\')),".\\n";
}
и в ответ ничего получить не могу. Наверное это из за того, что делаю в скрипте:
############ ################ ################## #################
if ($ENV{\'REQUEST_METHOD\'} eq "POST")
{read(STDIN, $bufer, $ENV{\'CONTENT_LENGTH\'});}
else
{$bufer=$ENV{\'QUERY_STRING\'};}
@pairs = split(/&/, $bufer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
$step=$FORM{\'step\'};
....
############ ################ ################## #################
и из за этого ничего не проходит?
Но отказаться от предыдущего кода не могу, т.к. весь скрипт работает на нём, и библиотегу CGI вообще не использую. И сейчас не хочется использовать, как без неё построить список выделенных checkbox?
Заранее огромное спасибо за любые советы :*
