Поиск и замена нескольких линий

Question

my $string = "<name> 
       POWERDOWN_SUPPORT 
       </name> 
       <bool> 
       <value> true </value> 
       </bool>"; 

    if ($string=~ s/POWERDOWN_SUPPORT<\/name><bool><value>.*?<\/value>/<false>/ims) { 
    print "$string\n"; 
    } 

Как получить замену на работу?

Ожидаемый результат:

<name> 
    POWERDOWN_SUPPORT 
</name> 
<bool> 
    <value> false </value> 
</bool> 

Answer 1

Это может работать:

s/(POWERDOWN_SUPPORT\s*?<\/name>\s*?<bool>\s*?<value>).*?(<\/value>)/$1 false $2/s 

Answer 2

Используйте осведомленный инструмент XML, синтаксический анализ XML с помощью регулярных выражений трудно и ошибок.

Например, xsh, оберткой XML::LibXML:

open file.xml ; 
my $v = //name[normalize-space(.)='POWERDOWN_SUPPORT']/following-sibling::bool/value[normalize-space(.)='true']; 
set $v/text() 'false' ; 
save :b ;