ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : kan                                  2:5050/47      10 Jan 2005  00:34:06
 To : Andrei Protasovitski
 Subject : Остановить XML::Parser
 -------------------------------------------------------------------------------- 
 

 
  Я совершенно случайно заметил, что в Среда Январь 05 2005 18:51, Andrei 
 Protasovitski писал All:
 
  AP> [-=cut=-]
  AP> my $par = XML::Parser->new(Handlers => {Start =>
  AP>      sub {
  AP>          my($p, $element, %attrs) = @_;
  AP>          return if $element ne "field";
  AP>          if ($attrs{privelege} > 2) {
  AP>              $ret = 1;
  AP>              # Что тут написать?
 
 die
 
  AP>          }
  AP>                                          }});
 
 eval{
 
  AP> $par->parsefile($filename);
  AP> [-=cut=-]
 
 }
 
                 C уважением, Анатолий.
 [МФ УдГУ] [39-!1] [(Microsoft!=SUXX)&&(LINUX!=RULEZ)] [ICQ 152420540]
 ш Чтобы стоять я должен держаться корней
 ... А мораль отсюда такова... Hет, что-то не соображу! Hичего, потом вспомню.
  * Origin: СоБыСчас (2:5050/47)
 
 

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

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