Просмотр сообщений
1
Perl / Проблема с XML::Parser.
« : 26 Декабря 2005, 05:30:36 »
Наткнулся на проблему следующего характера: есть файл xml (не важно какого содержания), есть package в котором функция прасинга и есть перловый скрипт, который эту ф-цию вызывает.
в итоге выполнения, создается впечатление, что парсер переключает кодировку вывода в utf. такого по идее быть не должно. может кто-то сталкивался с подобным?
еще интересно, что в другом скрипте, где используется тот же парсер все проходит нормально.
вызов парсера:
my $parser = new XML::Parser(Style => "Subs");
$parser->setHandlers(Start => \\&start_tag,
End => \\&end_tag);
my @tree = $parser->parsefile($ConfigFile);
вызов функции:
use CGI::Carp qw/fatalsToBrowser/;
open(STDERR, ">&STDOUT");
select(STDOUT); $| = 1;
select(STDERR); $| = 1;
ParseConfig::parse_main_config("config.xml");
далее идет коннект к базе и т.д. и в конце:
print "Content-type: text/html\\n\\n";
print $c; # Сюда собирается вся страничка
в итоге выполнения, создается впечатление, что парсер переключает кодировку вывода в utf. такого по идее быть не должно. может кто-то сталкивался с подобным?
еще интересно, что в другом скрипте, где используется тот же парсер все проходит нормально.
вызов парсера:
my $parser = new XML::Parser(Style => "Subs");
$parser->setHandlers(Start => \\&start_tag,
End => \\&end_tag);
my @tree = $parser->parsefile($ConfigFile);
вызов функции:
use CGI::Carp qw/fatalsToBrowser/;
open(STDERR, ">&STDOUT");
select(STDOUT); $| = 1;
select(STDERR); $| = 1;
ParseConfig::parse_main_config("config.xml");
далее идет коннект к базе и т.д. и в конце:
print "Content-type: text/html\\n\\n";
print $c; # Сюда собирается вся страничка