mit perl string xml in einen Knoten einfügen

Question

Ich habe das folgende XML als String in einer Variablen $myXML und muss es in Root->grouping einfügen

<mydata seq="ee">
    <subdata name="bla" value="bla" />
</mydata>

Das obige Xml muss in Root->Gruppierung eingefügt werden

<root>
  <grouping>    
  </grouping>
</root>

Ich bin derzeit mit XML::Twig so ideal, wenn Sie mir helfen könnte, dass

bearbeiten: Ich habe es mit einer komplexen < Root > Struktur zu tun, die sich in einer Datei befindet. Ich brauche eine Möglichkeit, diese < Root > xml in Perl zu laden und meine xml Zeichenfolge als Knoten einzufügen. Auch in meinem Fall < Gruppierung > hat bereits einige Knoten in ihm.

Answer 1

So würde ich es machen: Ich würde ein Element aus dem XML in $myXML und fügen Sie es dann als letztes Kind von grouping :

#!/usr/bin/perl

use strict;
use warnings;

use XML::Twig;

my $myXML='<mydata seq="ee"><subdata name="bla" value="bla" /></mydata>';

my $t= XML::Twig->new( twig_handlers => { grouping => sub { grouping( $myXML, @_); }, })
                ->parsefile( "so_insert.xml");

$t->print;
exit;

sub grouping
  { my( $xml, $t, $grouping)= @_;
    my $new_elt= XML::Twig::Elt->parse( $xml);
    $new_elt->paste( last_child => $grouping);
  }

Answer 2

Verwenden Sie einen Twig-Handler, um Inhalte einzufügen, wenn Sie das Gruppierungs-Tag sehen.

Angenommen, Ihre Root-/Gruppierungsdaten befinden sich in foo.xml :

#!/usr/bin/perl

use strict;
use warnings;

use XML::Twig;

my $myXML = <<'EOT';
<mydata seq="ee">
    <subdata name="bla" value="bla" />
</mydata>
EOT

my $xml = XML::Twig->new(
    pretty_print => 'indented',
    twig_handlers => {
        grouping => sub { $_->set_text($myXML)->set_asis; }
    });

$xml->parsefile("foo.xml") or die "Failed parse of foo.xml: $@\n";
$xml->print;

Answer 3

Habe ich etwas verpasst?

$myXML = '<root><grouping>' . $myXML . '</grouping></root>';