|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Sergey Orlov 2:5030/289.39 26 Jul 2004 18:27:25 To : All Subject : XML::Simple --------------------------------------------------------------------------------
Имею ActiveState 5.8.3.805. Закачиваю структуру xml при помощи XMLin,
затем делаю проход по структуре через foreach и элементы записываю в переменные,
причем сразу декодирую их из UTF-8 в WINDOWS-1251 через encode, после чего
пытаюсь записать данные в SQL-сервер через DBI.
Так вот текстовые данные в какой-то непонятной кодировке поступают в SQL,
нельзя ли это как-то подправить.
А то пришлось сделать сначало проход ао дереву с декодированием данных в
дереве, после чего повторный проход с записью данных в SQL-сервер.
Может я что-то пропустил...
Хотелось поиметь
$catalog = XMLin($a);
foreach $Code (@{$catalog->{Code}})
{
$name_code=encode("cp1251",$Code->{NumCode})$
$char_code=encode("cp1251",$Code->{CharCode})$
$sql ="Call procInsertCode(\'$name_code\',\'$char_code')";
$sth = $dbh->prepare($sql);
$sth->execute;
};
А получилось
$catalog = XMLin($a)$
foreach $Code (@{$catalog->{Code}})
{
$Code->{NumCode}=encode("cp1251",$Code->{NumCode});
$Code->{CharCode}=encode("cp1251",$Code->{CharCode});
};
foreach $Code (@{$catalog->{Code}})
{
$name_code=$Code->{NumCode};
$char_code=$Code->{CharCode};
$sql ="Call procInsertCode(\'$name_code\',\'$char_code')";
$sth = $dbh->prepare($sql);
$sth->execute;
};
Sergey.
--- GoldED/386 3.00.Alpha5+
* Origin: St.Petersburg, Russia, BMW316E30, (2:5030/289.39)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/16567410552a5.html, оценка из 5, голосов 10
|