Сообщения

1

Perl / проблема с юникодом

« : 05 Мая 2009, 22:59:41 »

поподробнее пожалуйста

2

Perl / проблема с юникодом

« : 05 Мая 2009, 10:17:12 »

есть такой код

Код: [Выделить]

use strict;
use utf8;
use DBI;
....
my $dbh = DBI->connect....
$dbh->do("set names utf8");
$sth = $dbh->prepare("select a from b where c=1");
$sth->execute;
$a = $sth->fetchrow_array();
print "Русская строка из базы данных: $a";
проблема в том, что строка, которую мы считали из базы, выведется иероглифами, зато если написать

Код: [Выделить]

print "Русская строка из базы данных: ";
print $a;
то все работает.
Кто знает в чем проблема?