2つのXMLファイルを同期する方法は？

Question

PerlとExcellentモジュールを使用してXML::Twigこれを行うことができます。私があなたを正しく理解したと仮定すると、基本的な作業は、あるファイルから「セクションの内容」要素をコピーし、別のファイルから「他のすべて」をコピーして、新しいファイルを作成することです。

だから：

#!/usr/bin/perl
use strict;
use warnings;

use XML::Twig;

my %nkjv_content;

sub extract_content {
    my ( $twig, $verse )  = @_;
    my $verse_number      = $verse->first_child_text('verse-no');
    my $content           = $verse->first_child_text('verse-content');
    $nkjv_content{$verse} = $content;
}

my $nkjv = XML::Twig->new( twig_handlers => { 'verse' => \&extract_content } );
$nkjv ->parsefile('1n.xml');

my $merged_version = XML::Twig->new('pretty_print' => 'indented')->parsefile('1k.xml');

foreach my $verse ($merged_version) {
    my $verse_number = $verse->first_child_text('verse-no');
    print $verse_number, ":", $verse->first_child_text('verse-content'), "\n";

    #replace the content with the one from the nkjv source file. 
    $verse->first_child('verse_content')->set_content( $nkjv_content{$verse_number} );
}

$merged_version -> print();

これは次のことを行います。

nkjvファイルを解析し、verse-content要素をハッシュとして抽出します。
以下を含む "n.xml"をロードします。最大保管したい情報。
各「節」を繰り返し、verse-content要素をnkjvバージョンに置き換えます。
印刷出力（フォーマット/インデント）

Answer 1

PerlとExcellentモジュールを使用してXML::Twigこれを行うことができます。私があなたを正しく理解したと仮定すると、基本的な作業は、あるファイルから「セクションの内容」要素をコピーし、別のファイルから「他のすべて」をコピーして、新しいファイルを作成することです。

だから：

#!/usr/bin/perl
use strict;
use warnings;

use XML::Twig;

my %nkjv_content;

sub extract_content {
    my ( $twig, $verse )  = @_;
    my $verse_number      = $verse->first_child_text('verse-no');
    my $content           = $verse->first_child_text('verse-content');
    $nkjv_content{$verse} = $content;
}

my $nkjv = XML::Twig->new( twig_handlers => { 'verse' => \&extract_content } );
$nkjv ->parsefile('1n.xml');

my $merged_version = XML::Twig->new('pretty_print' => 'indented')->parsefile('1k.xml');

foreach my $verse ($merged_version) {
    my $verse_number = $verse->first_child_text('verse-no');
    print $verse_number, ":", $verse->first_child_text('verse-content'), "\n";

    #replace the content with the one from the nkjv source file. 
    $verse->first_child('verse_content')->set_content( $nkjv_content{$verse_number} );
}

$merged_version -> print();

これは次のことを行います。

nkjvファイルを解析し、verse-content要素をハッシュとして抽出します。
以下を含む "n.xml"をロードします。最大保管したい情報。
各「節」を繰り返し、verse-content要素をnkjvバージョンに置き換えます。
印刷出力（フォーマット/インデント）

2つのXMLファイルを同期する方法は？

簡単に言うと：

答え1

関連情報