Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 5de9f9f8

Von Moritz Bunkus vor mehr als 10 Jahren hinzugefügt

  • ID 5de9f9f8e33b1fe8ab69cf38bc58d74cbec81779
  • Vorgänger ca1326b0
  • Nachfolger 0ba48077

SL::HTML::Util::strip: HTML-Entitäten zurückübersetzen

Unterschiede anzeigen:

SL/HTML/Util.pm
6 6 
use HTML::Parser;
7 7 

  		




  8
  8
  
    
my %stripper;


  		




  
  9
  
    
my %entities = (


  		




  
  10
  
    
  'lt'  => '<',


  		




  
  11
  
    
  'gt'  => '>',


  		




  
  12
  
    
  'amp' => '&',


  		




  
  13
  
    
);


  		




  9
  14
  
    

  		




  10
  15
  
    
sub strip {


  		




  11
  16
  
    
  my ($class_or_value) = @_;


  		




  ......




  22
  27
  
    
  $stripper{parser}->parse($value);


  		




  23
  28
  
    
  $stripper{parser}->eof;


  		




  24
  29
  
    

  		




  
  30
  
    
  $stripper{text} =~ s{\&([^;]+);}{ $entities{$1} }eg;


  		




  
  31
  
    

  		




  25
  32
  
    
  return delete $stripper{text};


  		




  26
  33
  
    
}


  		




  27
  34
  
    

  		












Auch abrufbar als:  Unified diff