XML::Parser::Style::Subs
use XML::Parser; my $p = XML::Parser->new(Style => 'Subs', Pkg => 'MySubs'); $p->parsefile('foo.xml');
{ package MySubs;
sub foo { # start of foo tag }
sub foo_ { # end of foo tag } }
Each time an element ends, a sub with that name appended with an underscore (``_''), is called with the same parameters that the End handler gets called with.
Nothing special is returned by parse.
Закладки на сайте Проследить за страницей |
Created 1996-2024 by Maxim Chirkov Добавить, Поддержать, Вебмастеру |