Wie streichen HTML-Tags mit IDs in Perl?

Question

weiß jemand hier, wie HTML-Tags mit Perl zu entfernen, wenn Sie XML verwenden :: Einfache Ausgabe?

Hier ist der Code, den ich habe;

#!/usr/bin/perl 
use XML::Simple; 
$xml = new XML::Simple; 
$data = $xml->XMLin('library.xml', ForceArray => 1, KeyAttr => {},); 

foreach my $library (@{$data->{library}}) 
{ 
    foreach my $shelf (@{$library->{shelf}}) 
    { 
    print $xml->XMLout($shelf, RootName => "book", NoSort => 1); 
    } 
} 

Dieser Code wird so etwas ausgeben;

<library> 
    <book shelf="12345">Book Title Here</book> 
</library> 

Wie entferne ich Tags und behalte den Titel. Vielleicht gibt es einen besseren Weg, dies zu tun, lass es mich wissen.

Jede Hilfe wäre willkommen :-) Danke.

Answer 1

Wenn Sie nichts in XML :: Simple für Ihre Zwecke finden, warum nicht einfach die Tags entfernen?

local $_ = $xml->XMLout($shelf, RootName => "book", NoSort => 1); 
    s#<.+?>#\n#sg; 
    s#\s*\n+\s*#\n#sg; 
    print;