- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #5515 [620]
От : Andrei Protasovitski 2:5020/400 05 января 05, 18:51
Кому : All 10 января 05, 21:20
Тема : Остановить XML::Parser
-------------------------------------------------------------------------------
From: Andrei Protasovitski
Доброго здоровья!
Делаю:
[-=cut=-]
my $par = XML::Parser->new(Handlers => {Start =>
sub {
my($p, $element, %attrs) = @_;
return if $element ne "field";
if ($attrs{privelege} > 2) {
$ret = 1;
# Что тут написать?
}
}});
$par->parsefile($filename);
[-=cut=-]
Иными словами, в документе ищется элемент с атрибутом privelege,
значение которого больше 2.
Мне надо, чтобы при нахождении такого элемента парсинг прекращался.
Можно ли этого добиться?
--
Andrei Protasovitski mailto:andrei()siliconmaterials.com
http://www.siliconmaterials.com/ ICQ: 75725244
Pinsk, Belarus
--- ifmail v.2.15dev5.3
* Origin: Protasonic (r) Soft (2:5020/400)