Замена длинного пробела на perl

Question

Я пытаюсь заменить строку прокомментированного текста в файле ничем, используя perl. Как это:

## Some text               ## 

Я попробовал эту команду:

perl -p -i -e 's/## Some text               ##//g' file.php 

Но это не сработало. Есть ли способ сделать это с пустыми пространствами, которые так долго?

Answer 1

Если вы хотите, чтобы держать линию, но удалить текст:

$ perl -pi -e 's/## Some text\s+##//' 

Если вы хотите, чтобы полностью удалить строку:

$ perl -ni -e 'print unless /## Some text\s+##/' 

Answer 2

Если вы хотите, чтобы удалить все строки, которые только комментарии и комментарии создаются с ведущим символом #, тогда все, что вам нужно сделать, это:

perl -i -ne 'print unless (m/^\s*#/);' file_name 

m соответствует нам эс^(начало строки) \ S * (ноль или более пробелов)

Если с другой стороны, вы хотите, чтобы удалить эту конкретную строку, а затем использовать -n вместо -p так:

perl -i -ne 'print unless (m//## Some text               #/);' file_name 

Причина, по которой ваш код не работает, заключается в том, что параметр -p всегда будет давать вам печать. Тип:

perldoc perlrequick 

и

perldoc perlretut 

для получения дополнительной информации по рег. выражения. Тип:

для получения дополнительной информации о вариантах -n и -p.