VPF::можно ли как-то на стороне сервера обнулять (или и

marcus7

Дата 8.9.2009, 01:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 7.9.2009

Репутация: нет
Всего: нет

Всем привет!

У меня следующий вопрос:
можно ли как-то на стороне сервера обнулять (или изменять) значение post-переменной ?

например, у меня есть html-форма:

Код


        <form name="my_form" action="elaborate_form.pl" method="POST">
                <input type="text" name="one" value="11111111111111" />
                <input type="text" name="two" value="22222222222222" />
                <input type="submit" name="OK" value="OK">
        </form>

и есть "elaborate_form.pl" скрипт, который обрабатывает эту форму:

Код


use CGI qw/escape -debug/;
use CGI::Carp qw (fatalsToBrowser);

my $q = new CGI;

if (defined $q->param('one')) {
    print $q->param('one');
}

Есть ли какой-то способ обнулить или изменить значение post-переменной $q->param('one') ?

Собственно такие варианты не работают:

Код


delete $q->param('one');
$q->param('one') = undef;
$q->param('one') = '3333333';

Спасибо )

DEER

Дата 8.9.2009, 09:42 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 749
Регистрация: 12.4.2005
Где: г. Рязань

Репутация: 2
Всего: 13

из perldoc

Цитата

SETTING THE VALUE(S) OF A NAMED PARAMETER:

    $query->param('foo','an','array','of','values');

This sets the value for the named parameter 'foo' to an array of values. This is one way to change the value of a field AFTER the script has been invoked once before. (Another way is with the -override parameter accepted by all methods that generate form elements.)

param() also recognizes a named parameter style of calling described in more detail later:

    $query->param(-name=>'foo',-values=>['an','array','of','values']);

                              -or-

    $query->param(-name=>'foo',-value=>'the value');

Это сообщение отредактировал(а) DEER - 8.9.2009, 09:44

--------------------

marcus7

Дата 11.9.2009, 02:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 7.9.2009

Репутация: нет
Всего: нет

DEER, thank you !
как раз то, что мне надо )))

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »