的Perl：在Apache虛擬主機文件

Question

添加一個新的指令，對於希望像這樣的模式：

<VirtualHost 127.0.0.1:81> 
    Directive1 
    Directive2 
</VirtualHost> 

我想</VirtualHost>前插入新行字符串Directive3。請注意，它們可以是文件中的幾個<VirtualHost/>聲明，但它們都具有唯一的IP：PORT對。這是我到目前爲止有：

perl -p -i -e 's/(<VirtualHost 127\.0\.1\.1:81>[^(<\/VirtualHost>)+])(<\/VirtualHost>)/$1\n\tDirective3\n$2/ims' $file 

哪個細分得出：

• 有<VirtualHost 127.0.0.1:81>
• 其次是
• 具有除</VirtualHost>
• 一切其次是
• </VirtualHost>

但這並不符合任何要求：（...

任何idead？

Answer 1

perl -p當時讀取文件一行。您可以使用-0777使其讀取整個文件。

或者你可以使用類似：

perl -pE '(/<VirtualHost +127\.0\.0\.1:81>/ .. /<\/VirtualHost>/) =~ /E/ and say "\tDirective3"'