VPF::CGI::Ajax опять кодировка - Форум программистов

trigger

Дата 25.7.2007, 12:38 (ссылка)

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

Загрузка ...

Шустрый

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

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

почитал на форуме но ответа так и не нашел.
ниже простой скрипт:

Код


use strict;
use CGI;      
use CGI::Ajax;
my $cgi = new CGI;
my $pjx = new CGI::Ajax( 'exported_func' => \&perl_func );

#print $pjx->build_html($cgi,\&Show_HTML, {'-charset' => 'UTF-8'} ); # вариации с кодировками
print $pjx->build_html($cgi, \&Show_HTML, {'-charset'=>'windows-1251'}); # вариации с кодировками

sub perl_func {
my $input = shift;
my $html .=<<EOT;
<select name="select">
<option>$input</option>
  <option>папа</option>
  <option>Дед</option>
  <option>Саседка</option>
</select>
EOT
print "$input ";
my $output = $input . " was the input!";
    return( $output, $html );
    #return( $html ,$input);
}

sub Show_HTML {
my $html = <<EOHTML;
    <HTML>

    <BODY>
      Enter something: 
        <input type="text" name="val1" id="val1"
         onkeyup="exported_func( ['val1'], ['resultdiv','resultdiv2'] );">
      <br>
      <div id="resultdiv"></div>
             <div id="resultdiv2"></div>
    </BODY>
    </HTML>
EOHTML
return $html;
}

проблема:
Если  передавать параметр -  кодировка проходит нормально,
в случае использования строк
  <option>папа</option>
  <option>Дед</option>
  <option>Саседка</option>
выводит  ïàïà, Äåä, Ñàñåäêà

строками
print $pjx->build_html($cgi,\&Show_HTML, {'-charset' => 'UTF-8'} );
print $pjx->build_html($cgi, \&Show_HTML, {'-charset'=>'windows-1251'});
пытался побороть - не получается.

помогите побороть эту проблемму.
Заранее благадарю.

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