запрос к Oracle (на perl через dbd::oracle)

koluchy · Сообщение **koluchy** » 08.10.2008 11:34

Соединяюсь с базой данных и делаю ппостую выборку:

Код:

my $sth = $dbh->prepare( "
    SELECT FML, PERSON_ID
    FROM SOTRUDNIKS
    WHERE VO IS NOT NULL
    ORDER BY FML
    " )
    or die "РќРµРІРѕР·РјРѕР¶РЅРѕ РїРѕРґРіС‚РѕРІРѕРёС‚СЊ Р·Р°РїСЂРѕСЃ SQL:", $dbh->errstr(), "\n";

Затем выводим на экран:

Код:

while ( ($fml, $id) = $sth->fetchrow_array ) {
    print "$fml \t$id\n";
    };

Результат:

Код:

./dbquery
Wide character in print at ./dbquery line 62.
Уволенные сотрудники:Акулич     69105
Wide character in print at ./dbquery line 62.
Алейник         61049
Wide character in print at ./dbquery line 62.
Амбражейчик     61392
Wide character in print at ./dbquery line 62.
Анико   61443
Wide character in print at ./dbquery line 62.

Ошибка возникла после того как я изменил глобальную переменную NLS_LANG:

Код:

~# export NLS_LANG=AMERICAN_AMERICA.UTF8

так как при выводе данных были проблемы с кодировкой.

Подскажить пожалуйста товарищи, как исправить эту ошибку?