Сценарий для изменения файла конфигурации XML

Вы действительно не привели достаточно объемный пример XML, поэтому я немного предполагаю.

Я бы посоветовал использовать в этой работе хороший XML-парсер и perl.

Я настоятельно рекомендую вам НЕ использовать:

• Регулярные выражения
• XML :: Simple

Потому что оба они хрупкие - они вроде работают в контролируемых обстоятельствах, но у вас есть неприятный хакерский код, который может таинственным образом сломается однажды.

Вместо этого - используйте синтаксический анализатор, поддерживающий xpath , который - в терминах XML - способ найти / выбрать нужный контент и изменить его.

Что-то вроде XML :: Twig - низкий барьер для входа. (XML :: LibXML также является хорошей альтернативой, но, скорее, более исчерпывающей).

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

use XML::Twig; 

#parse the content - you probably want `parsefile` here instead. 
my $twig = XML::Twig -> new ( pretty_print => 'indented_a' ) -> parse ( \*DATA );

#select the node you want, alter it. 
$twig -> get_xpath('./ssh/enabled',0) -> set_text('false');

#print the output (to STDOUT) - you can print {$output_fh} $twig->sprint; instead
$twig -> print;


__DATA__
<xml>
  <www>
    <enabled>true</enabled>
    <ip>0.0.0.0</ip>
    <port>80</port>
  </www>
  <ssh>
    <enabled>true</enabled>
    <ip>0.0.0.0</ip>
    <port>2024</port>
  </ssh>
  <smtp>
    <enabled>true</enabled>
    <ip>0.0.0.0</ip>
    <port>25</port>
  </smtp>
</xml>

Примечание. get_xpath использует формат типа «структура каталогов». Он поддерживает как абсолютные пути в XML, так и относительные пути. Как описано выше, он будет работать с первым элементом, который соответствует этому пути (XML допускает несколько).

Однако вы можете сделать это в цикле foreach:

foreach my $thing ( $twig -> get_xpath ('//enabled') ) {
   $thing -> set_text('false'); 
}

, чтобы отключить все.

xpath довольно гибкий - это способ указания пути, элемента и атрибутов, и он идеально подходит для навигации по XML в виде регулярных выражений.

Итак, у вас есть такие конструкции, как // для рекурсивного поиска.

Или // узел [@ name = 'test'] , чтобы найти:

<node name="test">content</node>

Там есть удобный быстрый справочник , который дает простой способ узнать, как перемещаться по XML с помощью xpath.

Поскольку несколько узлов в вашем конфигурационном файле имеют дочерние узлы с тем же именем, я бы рекомендовал написать ваш скрипт так, чтобы он действительно понимал формат XML. Вот пример изменения двух элементов конфигурации с помощью Perl:

#!/usr/bin/perl

use strict;
use warnings;

use XML::Simple;

my $config = 'config.xml';
my $xml = XMLin($config, KeepRoot => 1, ForceArray => 1,);

$xml->{config}->[0]->{ssh}->[0]->{enabled} = 'false';
$xml->{config}->[0]->{web}->[0]->{ip} = '127.0.0.1';

XMLout($xml, KeepRoot => 1, NoAttr => 1, OutputFile => $config,);

Вот мой входной файл config.xml:

<config>
  <ssh>
    <enabled>true</enabled>
    <ip>0.0.0.0</ip>
    <port>2024</port>
  </ssh>
  <web>
    <enabled>true</enabled>
    <ip>0.0.0.0</ip>
    <port>80</port>
  </web>
</config>

А вот выходной:

<config>
  <ssh>
    <enabled>false</enabled>
    <ip>0.0.0.0</ip>
    <port>2024</port>
  </ssh>
  <web>
    <enabled>true</enabled>
    <ip>127.0.0.1</ip>
    <port>80</port>
  </web>
</config>