Как я могу объединить два XML-файла в Perl?

Question

UPDATE:

Позвольте мне перейти к более подробной информации (по запросу)

У меня есть 2 файла Perl, первый генерирует запрос XML / POST (файл не создается). Второй файл новый и предназначен для добавления другого элемента в XML при определенных условиях. У меня проблема в том, что первый файл уже проверяет условия, но второй файл необходим для генерации нового XML. Как добавить XML в первый файл из второго файла?

как то так:

(Файл № 3 использует Файл № 1)

use file1

my $xml = File1->new();

# Set some properties

# Now adding XML from file #2
my $addXML = File2->new();

# Set some more properties

# File1 needs to check if the XML or Object from File2 
# exists to add the XML to File1, else throw error.

Надеюсь, это поможет и извините за первый пост.

Answer 1

Я предполагаю, что и «Файл1», и «Файл2» являются чисто объектно-ориентированными модулями. Это означает, что они не поддерживают глобальное состояние и поддерживают только методы класса для создания объектов и методы объекта для выполнения действий над эти объекты.

В этом случае я бы поместил логику проверки в вашу основную программу, а не в модуль File1, и написал бы ее так:

if ($addXML->hasObjectImLookingFor) {
     $xml->add($addXML->getObjectImLookingFor);
} else {
     die "File 2 does not contain object I'm looking for";
}

Извините, это расплывчато, но, честно говоря, ваш вопрос тоже. Если вы действительно можете дать нам небольшой пример полного кода Perl (я понимаю, что это может быть не ваш настоящий код, а просто небольшой фиктивный модуль, который иллюстрирует поведение), который может помочь.