/
niceSOFT
/
XML-Parser
Обзор
Документация
Войти
/
niceSOFT
/
XML-Parser
Код
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
t/cdata.t
39 строк
639 B
matt
This commit was generated by cvs2svn to compensate for changes in r2,
27 июл 2003, 15:07
27 июл 2003, 15:07
e0010d0
Код
Авторство
О чём код?
BEGIN {print "1..2\n";} END {print "not ok 1\n" unless $loaded;} use XML::Parser; $loaded = 1; print "ok 1\n"; my $count = 0; my $cdata_part = "<<< & > '' << &&&>&&&&;<"; my $doc = "<foo> hello <![CDATA[$cdata_part]]> there</foo>"; my $acc = ''; sub ch { my ($xp, $data) = @_; $acc .= $data; } sub stcd { my $xp = shift; $xp->setHandlers(Char => \&ch); } sub ecd { my $xp = shift; $xp->setHandlers(Char => 0); } $parser = new XML::Parser(ErrorContext => 2, Handlers => {CdataStart => \&stcd, CdataEnd => \&ecd}); $parser->parse($doc); print "not " unless ($acc eq $cdata_part); print "ok 2\n";