Изменение значения атрибута тега xml с помощью perl

Question

У меня очень длинный xml, и я хочу обновить значение атрибута одного из тегов, который очень глубоко вложен, поэтому не хотите идти узлом по узлу. Также структура не совпадает по целевому узлу всегда, как можно увидеть ниже: Input XML является:

<Re> 
<Co Class="Parameter" ID="CSCP001" Status="Available"> 
<FileSpec URL="c://mine/testfiles/wln/c.txt"/> 
<CoOp Operation="Tag" SourceCS="RGB" SourceObjects="All"> 
<FileSpec Resource="SourceProfile" URL="c://mine/testfiles/wln/d.txt"/> 
</CoOp> 
</Co> 
<Ru Class="Parameter" ID="IDR002" PartIDKeys="Run" Status="Available"> 
<Ru EndOfDocument="true" Pages="0" Run="1" RunTag="First"> 
<La> 
<FileSpec URL="c://mine/testfiles/wln/e.txt"/> 
</La> 
</Ru> 
</Ru> 
</Re> 

и я хочу иметь вывода XML, как

<Re> 
<Co Class="Parameter" ID="CSCP001" Status="Available"> 
<FileSpec URL="d://yours/wln/c.txt"/> 
<CoOp Operation="Tag" SourceCS="RGB" SourceObjects="All"> 
<FileSpec Resource="SourceProfile" URL="d://yours/wln/d.txt"/> 
</CoOp> 
</Co> 
<Ru Class="Parameter" ID="IDR002" PartIDKeys="Run" Status="Available"> 
<Ru EndOfDocument="true" Pages="0" Run="1" RunTag="First"> 
<La> 
<FileSpec URL="d://yours/wln/e.txt"/> 
</La> 
</Ru> 
</Ru> 
</Re> 

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

use XML::LibXML qw(); 
use XML::LibXML; 
use Data::Dumper; 

my $xml = "a.txt"; 
my $xpath_expression = 'FileSpec'; 

my $parser = XML::LibXML->new(); 
my $doc = $parser->parse_file($xml) or warn "Could not"; 

my $parser1 = XML::LibXML::Element->new($xml); 


for my $FileSpec1 ($doc->getElementsByTagName('FileSpec')) 
{ 
print $FileSpec1; 
my $xpath = '$FileSpec1/@URL'; 
my ($attr) = $doc->findnodes($xpath);  
$attr->setValue('dfdsa'); 
my ($URL1) = $FileSpec1->findvalue('@URL'); 
print $URL1; 
} 

Я попытался использовать $ node-> setAttribute ($ aname, $ avalue); но это бросает исключения. Пожалуйста посоветуй.

Answer 1

Вы можете попробовать XML::Twig модуль. Он имеет параметр twig_handlers, который выбирает теги, которые вы хотите, и запускает обработчик. Переменная $_ по умолчанию имеет элемент и способ его set_att() позволяет изменить его значение легко:

#!/usr/bin/env perl 

use warnings; 
use strict; 
use XML::Twig; 

my $new_url = q{d://yours/wln/d.txt}; 

my $twig = XML::Twig->new(
     twig_handlers => { 
       'FileSpec' => sub { $_->set_att('URL', $new_url) } 
     }, 
     pretty_print => 'indented', 
)->parsefile(shift)->print(); 

Выполнить это нравится:

perl script.pl xmlfile 

Это дает:

<Re> 
    <Co Class="Parameter" ID="CSCP001" Status="Available"> 
    <FileSpec URL="d://yours/wln/d.txt"/> 
    <CoOp Operation="Tag" SourceCS="RGB" SourceObjects="All"> 
     <FileSpec Resource="SourceProfile" URL="d://yours/wln/d.txt"/> 
    </CoOp> 
    </Co> 
    <Ru Class="Parameter" ID="IDR002" PartIDKeys="Run" Status="Available"> 
    <Ru EndOfDocument="true" Pages="0" Run="1" RunTag="First"> 
     <La> 
     <FileSpec URL="d://yours/wln/d.txt"/> 
     </La> 
    </Ru> 
    </Ru> 
</Re> 

---

EDIT: Mirod's версия указал в комментариях более эффективного синтаксического анализа с использованием twig_roots():

#!/usr/bin/env perl 

use warnings; 
use strict; 
use XML::Twig; 

my $new_url = q{d://yours/wln/d.txt}; 

my $twig = XML::Twig->new(
     twig_roots => { 
       'FileSpec' => sub { $_->set_att('URL', $new_url); $_->flush } 
     }, 
     twig_print_outside_roots => 1, 
     pretty_print => 'indented', 
)->parsefile(shift); 

Answer 2

Ваш код является слишком сложным. Вы не нуждаетесь в парсер, никаких элементов, просто найти ссылки и изменить их:

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

use XML::LibXML; 

my $xml = 'XML::LibXML'->load_xml(location => 'a.xml') ; 

for my $url ($xml->findnodes('//FileSpec/@URL')) { 
    my $value = $url->getValue; 
    $value =~ s{c://mine/testfiles}{d://yours}; 
    $url->setValue($value); 
} 

$xml->toFile('new.xml');