ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Sergey Gernichenko                   2:5079/49.18   15 Apr 2004  14:49:18
 To : All
 Subject : utf-8
 -------------------------------------------------------------------------------- 
 

 
 Че-то не понимаю...
 беру скриптец:
 #!perl
 $a='Русский текст';
 utf8::encode($a);
 print $a,"\n";
 utf8::decode($a);
 print $a;
 
 Получаю то, что и задумывалось: строка сконвертилась в utf8 и обратно.
 
 Hо никак не могу понять, почему не получается сконвертировать текст из utf8,
 возвращаемый XML::Parser. Что я делаю не так?
 
   my $p1 = new XML::Parser(Style => 'Tree',ProtocolEncoding=>'windows-1251');
   my $ref = $p1 -> parsefile('Content/MainMenu.xml');
   $items = $$ref[1];
   for ($i=1; defined $$items[$i]; $i+=2){
     if ($$items[$i] eq 'item') {
       $v = $$items[$i+1]->[0];
       print map {
                   my $tmp = $$v{$_};
                   utf8::decode($tmp);
                   "$_ = $tmp<br>\n";
                 } keys %$v;
     }
   }
 
 пример XML файла:
 === begin Windows Clipboard ===
 <r>
   <item href="about" descr="About"/>
   <item href="contacts" descr="Контакты"/>
 </r>
 === end Windows Clipboard ===
     До свидания, *All*                  С уважением, *Sergey*.
 ... А сегодня хорошая погода
 --- WinNT 5.1.2600-Service_Pack_1 i1586 Eng, AS Perl5.6.1, Borland C++ v5.02
  * Origin: Жизнь прекрасна и удивительна: живу и удивляюсь (2:5079/49.18)
 
 

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

Тема:    Автор:    Дата:    utf-8   Sergey Gernichenko   15 Apr 2004 14:49:18   Re: utf-8   Andrew Alakozow   15 Apr 2004 13:51:19   Re: utf-8   Sergey Gernichenko   16 Apr 2004 09:40:06   Re: utf-8   Andrew Alakozow   16 Apr 2004 10:38:02