ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrew Alakozow                      2:5061/29      05 Feb 2001  13:55:13
 To : Alexey Cheglyakov
 Subject : Troubles with perl XML::Parser output encoding
 -------------------------------------------------------------------------------- 
 

 
 Alexey Cheglyakov wrote to All...
 
 AC> Hе могу разобраться с сабж. Результирующий вывод получается в чем
 AC> угодно, только не в требуемой кодирокве (koi or win). Требуемые *.enc
 AC> в Parser/Encodings лежат, в документе encoding указан.
 
 пример для <?xml version="1.0" encoding="windows-1251"?>
 
 use XML::Parser;
 use Unicode::Map8;
 use Unicode::String qw(utf8 utf16);
 
 my $parser = new XML::Parser(Handlers => { Char  => \&char});
 my $winmap = new Unicode::Map8("WinCyrillic") || die;
 
 die "no file name given" unless $ARGV[0];
 my $xmlfile = $ARGV[0];
 
 $parser->parsefile($xmlfile);
 
 sub char {
  my ($p, $data) = @_;
  print $winmap->to8(utf8($data)->utf16);
 }
 bi
                                                             .aa.
 
 --- (.) ===
  * Origin: Ecology... Save This Goddamn World! (2:5061/29)
 
 

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

Тема:    Автор:    Дата:    Troubles with perl XML::Parser output encoding   Alexey Cheglyakov   02 Feb 2001 06:37:43   Troubles with perl XML::Parser output encoding   Andrew Alakozow   05 Feb 2001 13:55:13