Perl複数行正規表現の置き換えキャプチャグループ

Question

私は、httpd.confの次のブロックのようなものを検索し、AllowOverrideに "None"を "None"に置き換えるPerlコード行をMakefileに追加します。

<Directory "/var/www/html"> 
    # 
    # Possible values for the Options directive are "None", "All", 
    # or any combination of: 
    # Indexes Includes FollowSymLinks SymLinksifOwnerMatch ExecCGI MultiViews 
    # 
    # Note that "MultiViews" must be named *explicitly* --- "Options All" 
    # doesn't give it to you. 
    # 
    # The Options directive is both complicated and important. Please see 
    # http://httpd.apache.org/docs/2.4/mod/core.html#options 
    # for more information. 
    # 
    Options Indexes FollowSymLinks 

    # 
    # AllowOverride controls what directives may be placed in .htaccess files. 
    # It can be "All", "None", or any combination of the keywords: 
    # Options FileInfo AuthConfig Limit 
    # 
    AllowOverride None 

    # 
    # Controls who can get stuff from this server. 
    # 
    Require all granted 
</Directory> 

次のように私は、コマンドラインから実行しようとしているコードは次のとおりです。

sudo perl -p -i -e 's/(<Directory "\/var\/www\/html">.*AllowOverride)(None)/\1 All/' httpd.conf 

しかし、私はそれを動作させることはできません。私は最初のグループを同じに保ち、2番目のグループを置き換えるために2つのキャプチャグループを使用しています。

ご協力いただきまして誠にありがとうございます。

EDITは：これは急速に起こりやすいエラーを複雑になる正規表現で入れ子になったものを解析し、修正し、一般的に

sudo perl -0777 -p -i -e 's/(<Directory \"\/var\/www\/html\">.*?AllowOverride) (None)/\1 All/s' httpd.conf 

Answer 1

を解決しました。可能であれば、完全なパーサを使用してください。

幸運なことに、Apacheの設定ファイルであるApache::Admin::Configを読んで変更する方法があります。最初はちょっと変わったので、ここに例があります。

#!/usr/bin/env perl 

use strict; 
use warnings; 
use v5.10; 

use Apache::Admin::Config; 

# Load and parse the config file. 
my $config = Apache::Admin::Config->new(shift) 
    or die $Apache::Admin::Config::ERROR; 

# Find the <Directory "/var/www/html"> section 
# NOTE: This is a literal match, /var/www/html is different from "/var/www/html". 
my $section = $config->section(
    "Directory", 
    -value => q["/var/www/html"] 
); 

# Find the AllowOverride directive inside that section. 
my $directive = $section->directive("AllowOverride"); 

# Change it to All. 
$directive->set_value("All"); 

# Save your changes. 
$config->save; 

一度に1レベルずつ構造をドリルダウンしています。最初にセクションを見つけ、その中のディレクティブを探します。

これはループで実行できます。たとえば、すべてのディレクトリセクションを見つける...

for my $section ($config->section("Directory")) { 
    ... 
}