Как перед заменой выполнить поиск между определенными словами?

Question

[Starik007]

У меня есть файл apache2.conf и я пытаюсь сделать замену в строке "ScriptAlias /php-bin/ /var/www/*" , только предварительно выполнив поиск между значениями ServerName $domain и < / VirtualHost >.
Подскажите пожалуйста, как примерно это можно реализовать?

Сейчас разбираюсь с perl, нашел пример с заменой, но он полностью стирает всё что найдено между ServerName и < / VirtualHost > , а мне нужно хотя бы дописать, а в идеале - заменить строку в пределах ServerName $domain и < / VirtualHost >.

my $apacheconf = '/etc/apache2/apache2.conf';
		open(my $fh, '<:encoding(UTF-8)', $apacheconf);	
	
		my $newtext = "\n\tScriptAlias /php-bin/ /var/www/"."$user"."\n";

		my $find = "/var/www/$user/data/www/$domain";
		
		my $str = "";

		while (my $rowa = <$fh>) {
		  chomp $rowa;
		  $str .= "$rowa\n";
		}
		close $fh;
		my $string = $str;
		$string =~ s/(ServerName $domain).*?(\<\/VirtualHost\>)/$1$newtext$2/gis;

Answer 1

[ShamblerR]

дай пример реального конфига

Comments

[Starik007]

То есть я ищу между ServerName user1.ru и < / VirtualHost > , а после хочу работать со строкой ScriptAlias /php-bin/ /var/www/php-bin/user1/ . Не важно, либо закомментировать, либо заменить её на свою другую строку.

<VirtualHost 127.0.0.1:81 >
	ServerName user1.ru
	AssignUserID user1 user1
	CustomLog /var/www/httpd-logs/user1.ru.access.log combined
	DocumentRoot /var/www/user1/data/www/user1.ru
	ErrorLog /var/www/httpd-logs/user1.ru.error.log
	ServerAdmin [e-mail]
	ServerAlias www.user1.ru
	AddType application/x-httpd-php .php .php3 .php4 .php5 .phtml
	AddType application/x-httpd-php-source .phps
        ScriptAlias /php-bin/ /var/www/php-bin/user1/
	php_admin_value open_basedir "/var/www/user1/data:."
	php_admin_value sendmail_path "/usr/sbin/sendmail -t -i -f [e-mail]"
	php_admin_value upload_tmp_dir "/var/www/user1/data/mod-tmp"
	php_admin_value session.save_path "/var/www/user1/data/mod-tmp"
</VirtualHost>
<VirtualHost 127.0.0.1:81 >
	ServerName user2.ru
	AssignUserID user1 user1
	CustomLog /var/www/httpd-logs/user2.ru.access.log combined
	DocumentRoot /var/www/user2/data/www/user2.ru
	ErrorLog /var/www/httpd-logs/user2.ru.error.log
	ServerAdmin [e-mail]
	ServerAlias www.user2.ru
	AddType application/x-httpd-php .php .php3 .php4 .php5 .phtml
	AddType application/x-httpd-php-source .phps
        ScriptAlias /php-bin/ /var/www/php-bin/user2/
	php_admin_value open_basedir "/var/www/user2/data:."
	php_admin_value sendmail_path "/usr/sbin/sendmail -t -i -f [e-mail]"
	php_admin_value upload_tmp_dir "/var/www/user2/data/mod-tmp"
	php_admin_value session.save_path "/var/www/user2/data/mod-tmp"
</VirtualHost>

[Виктор Таран]

sed -i 's/ScriptAlias \/php-bin\/ \/var\/www\/php-bin\/user2\//новый текст/g' /etc/site-enabled/lalala.conf

не забывай экранировать спецсимволы ;)
sed -i 's/было/стало/g' файл
Ну и если нужно используй регулярки, дабы сед их разрешает
можно сделать вообще что-то подобное
.*ScriptAlias .* заменить на новую строку

[jcmvbkbc]

дабы сед их разрешает

Виктор Таран, нужны недюжинные способности дабы использовать архаизмы с умом, ибо не перевелись ещё люди понимающие их.

[Starik007]

Виктор Таран, это получается замена всех вхождений, что будут найдены в lalala.conf, а схожих virtualhost'ов много.
А как-то можно перед заменой выбрать часть кода, с которым будем работать?
К примеру, сначала ищем то что находится между ServerName user1.ru и < / VirtualHost >, в полученном результате проводим замену нужного текста и записываем всё что нашёл с изменениями в переменную $newtext.
А уже потом при помощи $string =~ s/(ServerName $domain).*?(\<\/VirtualHost\>)/$1$newtext$2/gis;
возвращаем всё что было между строками + с уже нужной заменой текста.

[Виктор Таран]

вот за 10 лет работы с веб серверами мне никогда не понадобилась такая выборка, что говорит о том что что-то тут не так
дайте полную логику что вы хотите сделать и зачем, возможно вам просто нужно будет добавить часть логики.
Опишите что конкретно и зачем вы делаете ( не в самом файле а с сервером ;)

[TheAthlete]

Starik007, советую посмотреть либо на модуля для парсинга Apache config:
Apache::Admin::Config
Apache::ConfigParser

либо использовать идеому Perl - flip-flop для получения текста между нужным текстом:
https://stackoverflow.com/questions/12488748/flip-...
https://stackoverflow.com/questions/14456634/what-...

Answer 2

[Александр Сапожников]

1. Для начала почитайте документацию — man perlre — пригодится в любом случае.

2. Затем определитесь с квантификаторами в регулярном выражении: меня смущает звёздочка с вопросительным знаком — обычно для того, чтобы обозначить ноль или больше любых символов применяют либо звёздочку, если нужно жадное поведение (.* — максимально возможное количество любых символов) либо плюс с вопросительным знаком, если жадность не нужна (.+? — минимально возможное количество любых символов).

3. Попутно можно и процедуру чтения файла упростить — можно сразу считать его в одну длинную строку, а не собирать её по кусочкам.

4. Как дальнейшее развитие третьего пункта — сто́ит активнее использовать различные ключи, с которыми запускается интерпретатор перла для того, чтобы не писать вручную всякий рутинный код — см. man perlrun. Например, многострочную inplace-замену в файле с сохранением резервной копии можно выполнить командой

perl -0777 -pi~ -e 's/что/куда/g' /путь/к/файлу/где/менять.conf

То есть, вместо кучи малопонятного мусорного по сути своей кода останется только один оператор замены — ничего лишнего.

5. Ну и всё-таки надо чётко сформулировать, что же вам надо. Я могу предположить, что вы хотите заменить строку "/var/www/$user/data/www/$domain" на "\n\tScriptAlias /php-bin/ /var/www/$user\n", но из вашего вопроса это явно не следует.

6. В вашем примере стирается слишком многое из-за того, что вы меняете на новое содержимое не то, что лежит в переменной $find, а вообще что угодно (.*).