Кость бигля - AP wlan1 должен получить доступ к eth0 как IP-адрес

Вы можете сделать это с помощью perl, используя отличный XML::Twig модуль. Если я правильно вас понял, то основная задача состоит в копировании элемента 'verse content' из одного файла, а 'everything else' из другого файла, и создании нового файла.

Итак:

#!/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.
• выведите результат (с форматированием и отступом)