Если в текстовое поле формы ввести русский текст, то Perl "получает" пустую строку, а в строке URL вместо "Вася" появляется "%1A%D9%4B%AA".

Если в этой строке ( не в форме! ) вручную написать "Вася", то всё работает...

Как решить эту проблему наиболее эффективно, желательно на "клиентской стороне" т.е. без переделывания Perl-кода. Или, если так нельзя, сделать это с наименьшими затратами...

Эээ.. при чём тут эстетика? Мне нужно в Перле в переменную записать слово "Вася", а не "%1A%D9%4B%AA".

<FORM name="form1" ACTION="/cgi-bin/aaa1.cgi" METHOD=GET>
<BR>Фильтр:<INPUT type=text name="filter" value="">
</FORM>
-------------------------------------------------------------------------
sub GetArg {
if ($ENV{'REQUEST_METHOD'} eq "POST") {$mode = 0}
if ($ENV{'REQUEST_METHOD'} eq "GET") {$mode = 1}
if ($mode == 0) {read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'})}
if ($mode == 1) {$buffer = $ENV{'QUERY_STRING'}}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
# $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex())/eg;
$FORM{$name} = $value;
}
}
...
GetArg();
$fff=$FORM{'filter'};
------------------------------------------------------------------------
Примечания:
1) Использовать $fff=param("filter") нельзя, т.к. заранее неизвестно, что это обязательно метод GET (может быть и POST)
2) При обработке строки очень желательно отфильтровывать символы, отличные от букв, цифр и пробелов (см. выделенная строка), но, если это сделать в данном случае (снять комментарий), вместо "%1A%D9%4B%AA" будет вообще "" т.е. пустая строка...

Что делать?

>my $filter=$q->param('filter');

Повторяю, заранее неизвестно, что метод будет именно "GET"...