- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #5518 [620]
От : kan 2:5050/47 09 января 05, 23:34
Кому : Andrei Protasovitski 10 января 05, 21:20
Тема : Остановить XML::Parser
-------------------------------------------------------------------------------
@E-Mail: kan@scb.udsu.ru
@RealName: Купpиянов Анатолий
Приветик, Andrei !
Я совершенно случайно заметил, что в Среда Январь 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)