Главная страница


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)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

 Тема:    Автор:    Дата:  
 XML::Simple   Sergey Orlov   26 Jul 2004 18:27:25 
 XML::Simple   Dmitry Diskin   26 Jul 2004 23:57:48 
Архивное /ru.perl/16567410552a5.html, оценка 1 из 5, голосов 10
Яндекс.Метрика
Valid HTML 4.01 Transitional