多行搜索和替換

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 ;