Comment puis-je échapper texte d'un document XML en Perl?

Quelqu'un sait de toute module Perl pour échapper texte dans un document XML?

Je suis de produire un document XML qui contient le texte entré par l'utilisateur. Je veux gérer correctement le texte de sorte que le XML est bien formé.

Quel genre de "s'échapper" faites-vous allusion?
Êtes-vous essayer de créer de sortie XML à la main?

OriginalL'auteur coldeq | 2009-07-16

  1. 9

    Personnellement, je préfère XML::LibXML - Perl de liaison pour libxml. L'un des avantages - il utilise l'un des plus rapides de traitement XML disponibles de la bibliothèque. Voici un exemple de création de nœud de texte:

    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();

    Et, jamais, jamais créer XML à la main. Ça va être mauvais pour votre santé, lorsque les gens découvrent ce que vous avez fait.

    Point de pris. Je ne devrais pas avoir créé le XML à la main (ils n'étaient que de simples documents XML quand j'ai commencé). Je vais avoir besoin de se déplacer à la réécriture de ces morceaux de code.
    J'ai accepté cette réponse n'est pas pour le XML::LibXML recommandation (j'ai utilisé XML::Écrivain), mais pour souligner que ce n'est pas une bonne pratique pour créer XML à la main.
    Note XML::LibXML a non-dépendances perl et ne pourrait pas facilement installer sur votre plate-forme.
    il vous manque des $doc->setDocumentElement($element); si vous souhaitez obtenir tout de

    OriginalL'auteur zakovyrya

  2. 8

    Je ne suis pas sûr pourquoi vous avez besoin pour échapper à un texte qui est dans un fichier XML. Si votre fichier contient:

    <foo>x < y</foo>

    Le fichier est pas un fichier XML en dépit de la prolifération de crochets. Un fichier XML contient des données valides qui signifie quelque chose comme ceci:

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

    ou 

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

    Donc, soit:

    1. Vous ne demandez pas pour échapper à des données dans un fichier XML. Au contraire, vous voulez comprendre comment mettre des données de caractère dans un fichier XML de sorte que le fichier résultant est valide XML; ou

    2. Vous avez quelques données dans un fichier XML qui doit être échappés une autre raison.

    Soins à élaborer?

    Les gens deviennent fou quand vous leur rappeler que leur pseudo-XML n'est pas vraiment réel XML. C'est amusant... et triste. De toute façon, je upvoted vous 🙂
    Ma question serait #1. Je ne savais pas que ma question n'était pas claire. Je vais mettre à jour la question à clarifier.
    ici, mon cas est que je suis en train de monter un format XML dans un autre SAVON et le savon analyseur avez le problème de l'analyse du message encapsulé.
    Inutile de non-réponse. Oui, la question de départ n'était pas très clair, mais il était encore facile de deviner, ou vous pourriez avoir demandé des éclaircissements. Je understnad votre point, mais il serait mieux si c'était avec une réponse utile (comme la plupart des autres réponses sur cette page).

    OriginalL'auteur Sinan Ünür

  3. 8

    De XML::Simple escape_value pourrait également être utilisée, mais l'utilisation de XML::Simple n'est pas recommandé pour de nouveaux programmes. Voir ce post 17436965.

    Un manuel d'échappement peut être fait en utilisant les regex (copié à partir de escape_value):

    $data =~ s/&/&amp;/sg;
$data =~ s/</&lt;/sg;
$data =~ s/>/&gt;/sg;
$data =~ s/"/&quot;/sg;
    cette implémentation naïve travaille habituellement, mais pour les cas a.txt = " a&b " cela ne marchera pas.

    OriginalL'auteur Wadester

  4. 6

    Utilisation XML::Code.

    De CPAN

    XML::code escape()

    Normalement, tout le contenu du nœud seront échappés lors du rendu (j'. e. symboles spéciaux tels que "& " sera remplacé par des entités correspondantes). Appel escape() avec zéro argument pour l'empêcher:

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

    OriginalL'auteur joe

  5. 3

    XML::les Entités:

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

    Edit: XML::seules Entités numifies en entités HTML. Utilisation HTML::les Entités encode_entities($a) au lieu

    XML::Entities::numify semble seulement de convertir nommé entités XML numérique entités XML.
    Vous avez raison, mon erreur. Il est possible d'utiliser de l'HTML::Entités et encode_entities à la place.

    OriginalL'auteur hovenko

  6. 3

    Utilisation

    XML::Générateur de

    besoin de XML::Générateur;

    mon $xml = XML::Générateur->new( ':joli, escape => 'toujours,apos' );

    print $xml->h1( " &< >non-html en texte brut< >&" );

    qui permet d'imprimer tout le contenu à l'intérieur de balises échappé (pas de conflit avec le balisage).

    great stuff, fonctionne pour moi
    Interface agréable mais trop lent si vous écrivez des millions de lignes de code XML.

    OriginalL'auteur muenalan

  7. 1

    Après vérification de XML::Code tel que recommandé par Krish j'ai trouvé que cela peut être fait à l'aide de XML::Code text() fonction. E. g.,

    use XML::Code;
my $text = new XML::Code('=');
$text->set_text(q{> & < " ' "});
print $text->code(); # prints &gt; &lt; &amp; " ' "

    Passant '=' crée un nœud de texte qui, une fois imprimé ne contient pas de balises.
    Remarque: cela ne fonctionne que pour des données de texte. Il l'habitude de correctement s'échapper attributs.

    OriginalL'auteur coldeq

  8. 0

    Bien que vous feriez mieux d'utiliser un module comme XML::LibXML ou XML::Code vous pouvez rassembler des données textuelles dans une section CDATA. Vous devez seulement prendre soin de ne pas mettre ]]> en elle (cette séquence est également rejetée à l'extérieur de des sections CDATA!):

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

    Que les bonus de votre code est plus perlish obscurci! 🙂

    OriginalL'auteur Jakob

  9. 0

    Pour les programmes qui ont besoin de traiter chaque cas particulier, par tous les moyens d'utiliser une bibliothèque officielle pour cette tâche. Cependant, théoriquement, il y a seulement 5 caractères qui ont besoin d'échapper à en XML.

    Donc, pour un compromis que vous ne voulez pas tirer dans une bibliothèque, le perl suivant l'expression devrait suffire:

    perl -pe 's/\&/\&amp;/g; s/</\&lt;/g; s/>/\&gt;/g; s/"/\&quot;/g; s/'"'"'/\&apos;/g'

    OriginalL'auteur Raman