Изменение кода с использованием XML :: XPath в XML :: LibXML

У меня есть скрипт perl, работающий нормально. Скрипт принимает XML-файл в качестве входных данных и возвращает формат JSON того же самого, а также значение определенного элемента в XML-файле.Изменение кода с использованием XML :: XPath в XML :: LibXML

#!/usr/bin/perl 
use strict; 
use warnings; 
use JSON; 
use XML::Simple; 
use XML::XPath; 

my $xmlFileName = "jsonconversion.xml"; 
my $fileNameElement = "//FileName"; 

# Create the object of XML Simple 
$xmlSimple = new XML::Simple(KeepRoot => 1); 

# Load the xml file in object 
$dataXML = $xmlSimple->XMLin($xmlFileName); 

#Searching value using xpath 
my $xp = XML::XPath->new(filename => $xmlFileName); 
my $filename = $xp->find($fileNameElement); 

my $ElementValue = ""; 

#Fetching value of 'FileName' in 'fileNameValue' variable 
if(length $filename) { 
    foreach my $node ($filename->get_nodelist) { 
    $fileNameValue = $node->string_value; 
    last; 
} 
} 

# use encode json function to convert xml object in json. 
my $jsonString = encode_json($dataXML); 

#Printing fileNameValue 
print "\n\nFile Name is: ".$fileNameValue;

Из-за определенных ограничений в компании я не имею права использовать XML :: модуль PERL Xpath, я могу использовать XML: LibXML. Я попытался понять, как я могу сделать свой текущий код все еще работающим, заменив XML :: Xpath на XML: модуль LibXML perl. Я также ссылаюсь на документацию perl и старую запись в stackoverflow.

здесь один раствор образца:

my $dom = XML::LibXML->new->parse_file('data.xml'); 
for my $node ($dom->findnodes('/category/event/@name')) { 
    my value = $node->toString; 
}

но этот код предполагает изменить свой исходный код полностью.

Мой вопрос здесь в том, как я могу использовать XML: модуль libXML perl, заменяющий модуль perl XML: XPath с минимальными изменениями. Я не хочу снова писать весь код только ради использования существующей библиотеки.

Пример файла XML:

<?xml version="1.0" encoding="UTF-8" standalone="no" ?> 
<Person SchemaVersion="1.0.8"> 

    <ID>0</ID> 

    <Home ID="ABC-XYZ" State="Unknown"> 
    <Location> 

     <SiteName></SiteName> 
     <Number>62</Number> 
     <MaxSize>0</MaxSize> 
     <Comment></Comment> 
    </Location> 

    <Laptop> 
     <FileName>/usr/temp/RPM_020515_.tar.gz</FileName> 
    </Laptop> 
    </Home> 
    </Person>

Позвольте мне знать, если какие-либо предложения.

Благодаря

ПРИМЕЧАНИЕ: Я получил много помощи от людей в переполнение стека для записи текущего модуля PERL и понимание функциональности.

источник

2015-02-17 user1188611

Я не уверен, что это вопрос. Вы спрашиваете, есть ли дистрибутив с интерфейсом XML :: XPath, который использует XML :: LibXML? Я сомневаюсь, но это легко ответить: найдите cpan для имени методов в XML :: XPath. – ikegami

Над кодом работает отлично с perl-модулем XML :: XPath, но я не могу использовать этот модуль perl, поскольку моя компания не позволяет использовать. Они хотят, чтобы я использовал XML: модуль libXML perl. Поэтому мой вопрос заключается в том, как я могу сделать эту замену в моем предыдущем коде. – user1188611

Я предполагаю, что неправильно понял, потому что думал, что вы сказали, что знаете, как это сделать, и что вы не хотели этого делать. – ikegami

Это получает первый, как ваш код:

use XML::LibXML qw(); 
my $dom = XML::LibXML->new->parse_file('data.xml'); 
my ($file_name_node) = $dom->findnodes('//FileName'); 
my $file_name = $file_name_node ? $file_name_node->textContent() : '';

Или, если может быть только один,

use XML::LibXML qw(); 
my $dom = XML::LibXML->new->parse_file('data.xml'); 
my $file_name = $dom->findvalue('//FileName/text()');

источник

2015-02-17 20:47:16 ikegami

Изменение кода с использованием XML :: XPath в XML :: LibXML

ответ

Смежные вопросы