Вдвое меньше ведущих пробелов

[shoorick]

Придумал способ, позволяющий вдвое уменьшить число пробелов в начале строки в текстовом файле:

perl -pi~ -e 's/^( +)\1(?=\S)/$1/' filename.ext

Comments

[ichesnokov.livejournal.com]

Пипец, а чё так сложно-то?
s/^ / /g;
(в первом случае два пробела, во втором - один)

[shoorick.livejournal.com]

Нифига!
s/^  / /g уменьшает количество пробелов на один, если пробелов больше одного. Только что проверил на perl 5.14.2.

Потому и приходится чуть сложнее. Чуть, а не так — там всего-то регулярное выражение немного длиннее :-)

Конечно, в случае ровно с нулём либо двумя пробелами и s/^  / /g можно считать допустимым решением, но мне такое решение не нужно.

[ichesnokov.livejournal.com]

Мда, недоглядел - почему-то был уверен, что /g заставит регулярку пройтись по *всем* парам пробелов, которые она увидит в начале строки, и заменить каждую пару на один пробел. И тестовый скрипт подкачал ))

Регулярка показалась сложной, т.к. за конструкцией (?= пришлось лезть в perldoc, чтобы понять, что она означает =) Так что я бы сделал более читабельно: s/^( +)\1(\S)/$1$2/. Но тогда в этом посте не было бы никакой изюминки, да? )))