|
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
|