Как правильно написать регулярку в perl?

Question

[Олег Войтенко]

Все привет!
Недавно начал изучать perl, по этому сильно не бодайте, так как в нем еще нуб полный.

И так, суть вопроса. Есть некий файл конфига апача httpd.conf.
Конструкция как бы стандартная под Centos:

<VirtualHost 222.222.222.222:81 >
        ServerName somedomain.com
        CustomLog /var/www/httpd-logs/somedomain.com.access.log combined
        DocumentRoot /var/www/someuser/data/www/somedomain.com
        ErrorLog /var/www/httpd-logs/somedomain.com.error.log
        ServerAlias www.somedomain.com
        SuexecUserGroup someuser somegroup
        ServerAdmin [e-mail]
        ScriptAlias /cgi-bin/ /var/www/someuser/data/www/somedomain.com/cgi-bin/
</VirtualHost>

Таких виртуалхостов допустим много.
Вот задача, найти именно тот виртуалхост у которого значение ServerName совпадает с значением переменной $domain. и например удалить его секцию (все что от до ) не зацепив другие.
Как мне правильно прописать регулярку?
B торая ситуация, когда мне нужно найти виртуалхост по ServerName и заменить значения например ServerAlias и ServerAdmin только в этой секции.

Answer 1

[targumon]

Можно использовать подобный вариант.

Конфиг, допустим, такой:

<VirtualHost 222.222.222.222:81 >
ServerName somedomain.com
CustomLog /var/www/httpd-logs/somedomain.com.access.log combined
DocumentRoot /var/www/someuser/data/www/somedomain.com
ErrorLog /var/www/httpd-logs/somedomain.com.error.log
ServerAlias www.somedomain.com
SuexecUserGroup someuser somegroup
ServerAdmin [e-mail]
ScriptAlias /cgi-bin/ /var/www/someuser/data/www/somedomain.com/cgi-bin/
</VirtualHost>
<VirtualHost 222.222.222.222:81 >
ServerName somedomain1.com
CustomLog /var/www/httpd-logs/somedomain1.com.access.log combined
DocumentRoot /var/www/someuser/data/www/somedomain1.com
ErrorLog /var/www/httpd-logs/somedomain1.com.error.log
ServerAlias www.somedomain1.com
SuexecUserGroup someuser somegroup
ServerAdmin [e-mail]
ScriptAlias /cgi-bin/ /var/www/someuser/data/www/somedomain1.com/cgi-bin/
</VirtualHost>
<VirtualHost 222.222.222.222:81 >
ServerName somedomain2.com
CustomLog /var/www/httpd-logs/somedomain2.com.access.log combined
DocumentRoot /var/www/someuser/data/www/somedomain2.com
ErrorLog /var/www/httpd-logs/somedomain2.com.error.log
ServerAlias www.somedomain2.com
SuexecUserGroup someuser somegroup
ServerAdmin [e-mail]
ScriptAlias /cgi-bin/ /var/www/someuser/data/www/somedomain2.com/cgi-bin/
</VirtualHost>

sub removeIfSomedomain($$) {
    my $text = shift;
    my $domain = shift;
    
    $text = '' if $text =~ m{^\s*?ServerName\s+?$domain\s*?$}igsm;
    
    return $text;
}

sub changeContent($$$) {
    my $text = shift;
    my $domain = shift;
    my $new_values = shift;
    
    return $text if $text !~ m{^\s*?ServerName\s+?$domain\s*?$}igsm;
    
    foreach my $key ( keys %$new_values ) {
        $text =~ s{^(\s*?$key\s+?).+?$}{$1$new_values->{$key}}igsm;
    }
    
    return $text;
}

my $config = ... ; # содержимое конфига

$config =~ s{(<VirtualHost[^>]*?>.*?<\/VirtualHost>)}{ removeIfSomedomain($1,'somedomain1.com') }igse;

$config =~ s{(<VirtualHost[^>]*?>.*?<\/VirtualHost>)}{ 
                changeContent($1,'somedomain2.com', { SuexecUserGroup => 'justuser justgroup', 
                                                      ServerAlias => 'www.sd2.com', 
                                                      ServerAdmin => '[e-mail]' } ) 
                                                      }igse;

Выхлоп:

<VirtualHost 222.222.222.222:81 >
ServerName somedomain.com
CustomLog /var/www/httpd-logs/somedomain.com.access.log combined
DocumentRoot /var/www/someuser/data/www/somedomain.com
ErrorLog /var/www/httpd-logs/somedomain.com.error.log
ServerAlias www.somedomain.com
SuexecUserGroup someuser somegroup
ServerAdmin [e-mail]
ScriptAlias /cgi-bin/ /var/www/someuser/data/www/somedomain.com/cgi-bin/
</VirtualHost>

<VirtualHost 222.222.222.222:81 >
ServerName somedomain2.com
CustomLog /var/www/httpd-logs/somedomain2.com.access.log combined
DocumentRoot /var/www/someuser/data/www/somedomain2.com
ErrorLog /var/www/httpd-logs/somedomain2.com.error.log
ServerAlias www.sd2.com
SuexecUserGroup justuser justgroup
ServerAdmin [e-mail]
ScriptAlias /cgi-bin/ /var/www/someuser/data/www/somedomain2.com/cgi-bin/
</VirtualHost>

Comments

[Олег Войтенко]

Подскажите, в my $config = ... ; # содержимое конфига - должно быть содержание файла конфига? Тоесть $config = Меньше ConfigFile Больше ; (ConfigFile - это переменная в которую я открыл и загнал httpd.conf)

[targumon]

В $config просто текстовое содержимое конфига. Достаточно такой идиомы:

open my $fh, "<", 'httpd.conf';
my $config = do { local $/; <$fh> };
close $fh;

[Олег Войтенко]

Vitaly: спасибо, я это и имел ввиду. Сейчас буду пробовать.