Wie kann ich Text für ein XML-Dokument in Perl entkommen lassen?

Question

Wer weiß von einem Perl-Modul, um Text in einem XML-Dokument zu entkommen?

Ich erzeuge XML, das Text enthalten wird, der vom Benutzer eingegeben wurde. Ich möchte den Text richtig behandeln, damit das resultierende XML gut gebildet wird.

Answer 1

Ich persönlich bevorzuge XML::LibXML - Perl-Bindung für libxml. Eines der Profis - es verwendet eine der schnellsten verfügbaren XML-Verarbeitungsbibliotheken. Hier ist ein Beispiel für die Erstellung von Textknoten:

use XML::LibXML; 
my $doc = XML::LibXML::Document->new('1.0',$some_encoding); 
my $element = $doc->createElement($name); 
$element->appendText($text); 
$xml_fragment = $element->toString(); 
$xml_document = $doc->toString(); 

Und nie, nie XML von Hand erstellen. Es wird schlecht für deine Gesundheit sein, wenn Leute herausfinden, was du getan hast.

Answer 2

Verwenden Sie XML::Code.

Von CPAN

XML :: Code escape()

Normalerweise jeder Inhalt des Knotens wird beim Rendern entwertet werden (i e.. Sonderzeichen wie '&' wird durch entsprechende Einrichtungen ersetzt werden). Rufen Sie escape() mit Null-Argument, es zu verhindern:

 my $p = XML::Code->('p'); 
     $p->set_text ("—"); 
     $p->escape (0); 
     print $p->code(); # prints <p>&#8212;</p> 
     $p->escape (1); 
     print $p->code(); # prints <p>&amp;#8212;</p> 

Answer 3

XML::Entities:

use XML::Entities; 
my $a_encoded = XML::Entities::numify('all', $a); 

Edit: XML :: Entities nur numifies HTML-Entitäten. Verwenden Sie HTML::Entities encode_entities ($ a) stattdessen

Answer 4

Ich bin mir nicht sicher, warum Sie Text, der in einer XML-Datei befindet, müssen. Wenn Ihre Datei enthält:

<foo>x < y</foo> 

Die Datei ist nicht eine XML-Datei trotz der Verbreitung von spitzen Klammern. Eine XML-Datei müssen gültige Daten enthalten, so etwas wie dies bedeutet:

<foo>x &lt; y</foo> 

oder

<foo><![CDATA[x < y]]></foo> 

daher entweder:

1. Sie bitten nicht um Daten in einer XML-Datei zu entkommen. Stattdessen möchten Sie herausfinden, wie Sie Zeichendaten in eine XML-Datei einfügen, sodass die resultierende Datei gültiges XML ist. oder

2. Sie haben einige Daten in einer XML-Datei, die für aus einem anderen Grund maskiert werden müssen.

Pflege um zu erarbeiten?

Answer 5

Nach dem Auschecken von XML :: Code wie von Krish empfohlen, fand ich, dass dies mit der XML :: Code text() Funktion getan werden kann. Zum Beispiel

Übergeben '=' erstellt einen Textknoten, der, wenn gedruckt, keine Tags enthält. Hinweis: dies funktioniert nur für Textdaten. Es wird Attributen nicht korrekt entgehen.

Answer 6

Verwenden

XML :: Generator

XML benötigen :: Generator;

mein $ xml = XML :: Generator-> neu (': hübsch', escape => 'immer, apos');

print $ xml-> h1 ("& <> Nicht-HTML Klartext <> &");

, die den gesamten Inhalt innerhalb der Tags ausgedruckt werden (keine Konflikte mit dem Markup).

Answer 7

Obwohl Sie besser ein Modul wie XML::LibXML oder XML::Code verwenden, können Sie Textdaten in einen CDATA-Abschnitt einbinden. Sie müssen darauf achten nicht nur ]]> in sie zu setzen (diese Sequenz auch außerhalb von CDATA-Abschnitte nicht zulässig ist!):

$text =~ s/\]\]>/]]>]]&gt;<![CDATA[/; 
$text = "<![CDATA[$text]]>"; 
$xml = "<foo>$text</foo>"; 

Als Bonus Code wird mehr Perlish verschleierten aussehen! :-)

Answer 8

Der XML :: Simple escape_value könnte auch verwendet werden, aber die Verwendung von XML :: Simple wird nicht für neue Programme empfohlen. Sehen Sie diesen Beitrag 17436965.

Eine manuelle Flucht Post könnte mit regex erfolgen (von escape_value kopiert):

$data =~ s/&/&/sg; 
$data =~ s/</&lt;/sg; 
$data =~ s/>/&gt;/sg; 
$data =~ s/"/&quot;/sg;