2

XML の関連部分は次のようになります

<?xml version="1.0" encoding="UTF-8"?>
<key name="home">
        <entry name="default">zzzzz</entry>
        <key name="ffffff"></key>
        <key name="plugin">
                <key name="pst">
                        <entry name="enable">true</entry>
                </key>
        </key>
        <key name="hover">
                <key name="doze">
                        <key name="eventmanager">
                                <key name="types"></key>
                        </key>
                        <key name="ips">
                                <key name="proto">
                                        <key name="dos">
                                                <key name="dop"></key>
                                        </key>
                                </key>
                        </key>
                </key>
        </key>
.
.
.

私のコード:

#!/root/bin/perl
use strict;
use warnings;
use XML::Twig;


my $tree = XML::Twig->new(pretty_print => 'indented', keep_spaces => 1);

$tree->parsefile(shift);
my $msg =<<'MSG';
<key name="absy">
 <entry name="msg"></entry>
 <entry name="title"></entry>
</key>
MSG

my $client_plugin = XML::Twig::Elt->new( key => { name => 'client' } )->set_inner_xml($msg);

$client_plugin->paste(last_child => $tree->first_elt(sub {  $_[0]->tag =~ m/key/ and $_[0]->att('name') =~ m/plugin/i }));

$tree->print;

問題は、追加された要素が 1 行に表示され、残りの要素のように実際にはインデントされていないことです。私も$tree->print(pretty_print => 'indented')運が悪かったので試してみました。

4

1 に答える 1

4

モジュールは、呼び出しXML::Twig::Eltから重要でない空白を破棄していinner_htmlます。

その間、モジュールにを指定keep_spaces => 1したXML::Twigので、スペース（の不足）をそのまま保持します。

削除するkeep_spaces => 1と、うまくいくはずです。

アップデート

独自のプログラムと同じことを実行するが、読みにくい匿名サブルーチンの代わりにXPathステップを条件として使用するこのコードを確認することをお勧めします。

use strict;
use warnings;

use XML::Twig;

my $tree = XML::Twig->new(pretty_print => 'indented');
$tree->parsefile(shift);

my $msg = <<'MSG';
<key name="absy">
    <entry name="msg"/>
    <entry name="title"/>
</key>
MSG

my $client_plugin = XML::Twig::Elt->new( key => { name => 'client' } );
$client_plugin->set_inner_xml($msg);

my $plugin = $tree->first_elt('key[@name="plugin"]');
$client_plugin->paste(last_child => $plugin);

$tree->print;

出力

<?xml version="1.0" encoding="UTF-8"?>
<key name="home">
  <entry name="default">zzzzz</entry>
  <key name="ffffff"></key>
  <key name="plugin">
    <key name="pst">
      <entry name="enable">true</entry>
    </key>
    <key name="client">
      <key name="absy">
        <entry name="msg"/>
        <entry name="title"/>
      </key>
    </key>
  </key>
  <key name="hover">
    <key name="doze">
      <key name="eventmanager">
        <key name="types"></key>
      </key>
      <key name="ips">
        <key name="proto">
          <key name="dos">
            <key name="dop"></key>
          </key>
        </key>
      </key>
    </key>
  </key>
</key>
于 2013-03-12T16:00:23.237 に答える