ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrei Protasovitski                 2:5020/400     05 Jan 2005  19:51:27
 To : All
 Subject : Остановить XML::Parser
 -------------------------------------------------------------------------------- 
 

 Доброго здоровья!
 
 Делаю:
 [-=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=-]
 
 Иными словами, в документе ищется элемент <field> с атрибутом 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)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Остановить XML::Parser   Andrei Protasovitski   05 Jan 2005 19:51:27   Остановить XML::Parser   kan   10 Jan 2005 00:34:06