|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Turuntsev V.V. 2:5020/400 29 Nov 2004 14:56:22
To : All
Subject : Как сделать что бы XML::Parser на выходе КОИ8 рисовал?
--------------------------------------------------------------------------------
Сабж. пытаюсь использовать XML::Parser
XML::Parser::Encoding установил.
В исходном xml файле в заголовке стоит encoding="KOI8-R"
Документ читается, well formed.
А на выходе хня какая то, юникод что ли?
А хочется то кои!
---------------------
use XML::Parser;
my $parser = XML::Parser->new( Handlers => {
Init => \&handle_doc_start,
Final => \&handle_doc_end,
Start => \&handle_elem_start,
End => \&handle_elem_end,
Char => \&handle_char_data
});
$parser->parsefile( 'accounts.xml' );
exit;
sub handle_doc_start {
}
sub handle_elem_start {
($expat, $name, %atts) = @_;
}
sub handle_char_data {
($expat, $text) = @_;
}
sub handle_doc_end {
}
sub handle_elem_end {
$text =~s/\s+//g;
if ($text ne /\w+/) {
print "Заносим в HASH $name $text\n";
$hash{$name} = $text;
}
--- ifmail v.2.15dev5.3
* Origin: InPharmTech (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
