VPF::выдаётся варнинг в ответе AJAX - Форум программистов

dmitryk1

Дата 20.10.2008, 13:27 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 118
Регистрация: 10.6.2008
Где: Новосибирск

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

Выполняю код вызываемый аяксовой запросой и жду в ответ массивчик:

Код


#!/usr/bin/perl 

use CGI::WebOut;
use CGI::WebIn(1);
use JSON;
use lib qw(.); 
use dbora;

#Header("Content-type: text/plain; charset=windows-1251");
Header("Content-type: text/plain; charset=utf-8");

#my $uname="";
#my $fio="";


#print ("$uname  $fio");


my $ret=dbOra->new();

$ret->conn('databaza');

print to_json($ret->query('SELECT * from users',"$uname%","$fio%"));

print ("\n ---------------AAAAA------------");

а приходит массив с прицепом:

Код


[["Иванов И.И","IVANOV"]]---------------AAAAA------------
</script></xmp></pre></table></table></table></table></table></table></tt></tt></i></i></b></b></div></div></div></div></div></div></div></div></div></div>
<b><tt>1)</tt></b> <b>Warning:</b> Wide character in print at /usr/local/share/perl/5.8.8/CGI/WebOut.pm line 481.<br>

print ("\n ---------------AAAAA------------"); это добавил чтобы проверить где выводятся варнинги.

так вот. как бы мне их поотключать нафик? Раньше везде использовал #!/usr/bin/perl -w но после первого раза когда на такое наткнулся, везде поотключал. во всех файлах, однако опять вылезло и не убирается. Вылезло после того как я в утф8 вернулся.

как-то можно победить?

($uname и $fio передаются в запросе аяксовом)

ginnie

Дата 20.10.2008, 21:40 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

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

dmitryk1, может поможет

Код


ErrorReporting(ER_NoErr);

после

Код


use dbora;

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

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

KSURi

Дата 20.10.2008, 23:54 (ссылка)

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

Загрузка ...

Опытный

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

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

Вообще эта ошибка означает, что у вас невалидный utf-8 получается.
Попробуйте воспользоваться вот этим модулем, чтобы проверить ваши данные.

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

Died at Life.pl line 21

dmitryk1

Дата 21.10.2008, 05:13 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 118
Регистрация: 10.6.2008
Где: Новосибирск

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

Цитата(ginnie @ 20.10.2008, 21:40)

Код


ErrorReporting(ER_NoErr);

Спасибо Огромное! Вы меня опять спасли smile

Единственное, вставил этот вызов вчера, и сделал ещё {no warnings; ... } вокруг проблемного вызова и ничего не работало. Пришёл сегодня с утра, проверил и всё заработало. Видимо скрипт закэшировался. Но теперь всё работает.

Цитата

Спасибо, я попробую разобраться. К сожалению, такой утф приходит из бд, так что если править, то только каждый раз при получении.

Ну ещё раз спасибо за подсказки!

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