VirtualHostの記述を削除するスクリプトについて

質問

VirtualHostの記述を削除するスクリプトについて

あるサーバからいくつかのドメインを別のサーバに移して運用することになりました。
そのための設定を行っているのですが、移設先のサーバにはそのまま設定要項を
virtualhost.conf(仮定)に追記すればいいのですが、既存のサーバから
楽に削除する方法はないでしょうか。
全部で500くらいあるドメインの中から対象は100くらいあります。
そのため、手動で実行するにはあまりにも非効率でリスクがあります。

対象のServerNameがあるディレクティブを最小マッチで指定して
ごっそり置換できればよいのですが・・・

shell(sh/bash),perl,PHPのいずれかを考えています。
ですが、私の知識不足もあり、PerlとPHPはよくわかりません。
詳細は勉強するとして、サンプルを頂けないでしょうか。

もしくは「できない！」なんて意見もお願いいたします。

補足ですが、作業サーバも大量にあり、環境もまちまちになってしまうので、
バージョン依存するようなものは避けていただけると助かります。
（とはいえ、Perlだったら5.x系、PHPだったら4.x系以降くらいで）

今のところPerl案が根強いので本カテゴリにて質問させていただきます。
よろしくお願いします。

回答No.2

_--_1l1_1_

以下、表示がくずれるので空白2文字を全角空白1文字にしていることに注意
--- foo.pl
#!/usr/bin/perl
use strict;
use warnings;

my $file = shift || die "need conf file";
open my $fh, '<', $file or die "$!:$file";
while (<$fh>) {
　　if ( m{^[ \t]*<VirtualHost[ \t]+192\.168\.0\.1/>} ..
　　　　m{^[ \t]*</VirtualHost>} )
　　{
　　　　;　　# not print
　　}
　　else {
　　　　print;
　　}
}
close $fh or die "$!:$file";

--- test.conf
<Dummy1 />
　　Options dummy1
</Dummy1>

<VirtualHost 192.168.0.1/>
　　Options aaa
</VirtualHost>

<VirtualHost 192.168.0.2/>
　　Options bbb
</VirtualHost>

<Dummy2 />
　　Options dummy2
</Dummy2>

<VirtualHost 192.168.0.1/>
　　Options ccc
</VirtualHost>

<Dummy3 />
　　Options dummy3
</Dummy3>

--- result
$ perl foo.pl test.conf
<Dummy1 />
　　Options dummy1
</Dummy1>

<VirtualHost 192.168.0.2/>
　　Options bbb
</VirtualHost>

<Dummy2 />
　　Options dummy2
</Dummy2>

<Dummy3 />
　　Options dummy3
</Dummy3>

--- diff
$ perl foo.pl > test.conf+
$ diff test.conf test.conf+
5,7d4
< <VirtualHost 192.168.0.1/>
<　　 Options aaa
< </VirtualHost>
17,19d13
< <VirtualHost 192.168.0.1/>
<　　 Options ccc
< </VirtualHost>

補足

スクリプトありがとうございました。
まだ、実行してはいないのですが、だいぶ答えに近づいた気がします。

1点拝見させていただいたところで、修正しなければならないなと思っているのが
今回削除対象がIPアドレスベースではなく、ドメインベースですので、
Options aaa
を残したまま
Options ccc
を削除しなければならない点です。

おそらくこのスクリプトだとIPベースで削除する気がするので
改良の必要があります。
また対象が大量にあるので出来ればIPアドレス、ドメイン、を
引数にして渡せればベターなのですが。
引数が無理であれば対象が書かれたドメインリストを読み込んで
処理する、など可能でしょうか？

これから試しますが、ぱっと思い浮かばないので
もし、上記要件も満たせるスクリプトがあるならお願いします。

他力本願で申し訳ありませんが、よろしくお願いします。