Автор Тема: Проблема с переходом на UTF8  (Прочитано 4445 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн APL

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 344
  • +0/-0
  • 0
    • Просмотр профиля
    • http://www.aerozone.ru
Проблема с переходом на UTF8
« : 02 Июля 2009, 18:40:33 »
Начал переделывать сайты на utf8, но столкнулся с проблемой,..

Вот простой пример

#!/usr/bin/perl

use utf8;
use locale;
use POSIX qw (locale_h);
setlocale(LC_CTYPE, \'ru_RU.utf8\');
setlocale(LC_ALL, \'ru_RU.utf8\');

use strict;
use CGI qw/:standart/;
use CGI::Carp qw(fatalsToBrowser);

$object::cgi = new CGI;

print "\\n\\n";
$a = \'Тест\';
print lc ($a); print " (".(length $a).") ";
print "\\n\\n";

$a = $object::cgi->param(\'k\');
print uc($a); print " (".(length $a).") ";

1;


просто в качестве проверки преобразования регистров... в первом случае выдает длину 4, а во втором 8, если значение параметра тоже k=Тест, причем сам скрипт записан в юникоде... ну и во втором случае регистр менять не хочет... видимо CGI как-то преобразовывает...

подскажите плиз, где протупил

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28