PERL   69

xml pl

Guest on 21st July 2022 01:23:23 AM

  1. use bytes;
  2. use strict;
  3.  
  4. use XML::Parser;
  5.  
  6. sub xml_Initialize
  7.   {
  8.   my ($routine_char,
  9.       $routine_start,
  10.       $routine_end) = @_;
  11.  
  12.   my $PARSER = new XML::Parser(ErrorContext=>'2');
  13.  
  14.   if ($routine_end)
  15.     {
  16.     $PARSER->setHandlers(Char => \&${routine_char},
  17.                          Start => \&${routine_start},
  18.                          End => \&${routine_end});
  19.     }
  20.   else
  21.     {
  22.     $PARSER->setHandlers(Char => \&${routine_char},
  23.                          Start => \&${routine_start});
  24.     }
  25.  
  26.   return $PARSER;
  27.   }
  28.  
  29.  
  30. sub get_attributes
  31.   {
  32.   my %attributes = ();
  33.  
  34.   while(@_)
  35.     {
  36.     my $att = lc(shift);
  37.  
  38.     $attributes{$att} = shift;
  39.     }
  40.  
  41.   return %attributes;
  42.   }
  43.  
  44.  
  45. sub char_handler
  46.   {
  47.   }
  48.  
  49. 1;

Raw Paste

Login or Register to edit or fork this paste. It's free.