PERL   67

string handler pl

Guest on 21st July 2022 01:22:38 AM

  1. use bytes;
  2.  
  3. my %ATTRIBUTES;
  4. my $NAME;
  5. my $PARSER;
  6.  
  7.  
  8. sub xml_ParseStringConf
  9.   {
  10.   my($file) = @_;      
  11.  
  12.   $file .= ".str";
  13.  
  14.   if (! $PARSER)
  15.     {
  16.     $PARSER = &xml_Initialize("char_string_handler",
  17.                               "start_string_handler");
  18.     }
  19.  
  20.   $PARSER->parsefile($file);
  21.  
  22.   return %ATTRIBUTES;
  23.   }
  24.  
  25.  
  26. sub start_string_handler
  27.   {
  28.   my $p = shift;
  29.   my $element = shift;
  30.   my @attrs = @_;
  31.  
  32.   if ($element =~ /STRING/i)
  33.     {
  34.     my %attributes = &get_attributes(@attrs);
  35.     $NAME = $attributes{'name'};
  36.     $NAME =~ tr/A-Z/a-z/;
  37.     }
  38.   }
  39.  
  40.  
  41. sub char_string_handler
  42.   {
  43.   my $p = shift;
  44.   my $data = shift;    
  45.  
  46.  
  47.   if ($data)
  48.     {
  49.     $ATTRIBUTES{$NAME} .= $data;
  50.     }
  51.   }
  52.  
  53. 1;

Raw Paste


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