Perl Regex для сжатия нескольких разрывов строк

Question

Кажется, я не могу понять правильный синтаксис, но я хочу, чтобы регулярное выражение Perl находило, где есть два или более разрывов строк в строке, и уплотняло их всего в 2 разрывов строк.

Вот то, что я использую сегодня, который, кажется, не работает:

$string =~ s/\n\n+/\n\n/g;

Пожалуйста, дайте мне знать, что я делаю неправильно, и правильное регулярное выражение Perl, которое я должен использовать.

Заранее спасибо за помощь!

Answer 1

Если вы используете Perl 5.10 или более позднюю версию, попробуйте это:

$string =~ s/(\R)(?:\h*\R)+/$1$1/g;

\R общая escape-последовательность разделителя строк ( ref), и \h соответствует любому горизонтальному пробелу (например, пробел и TAB) ( ссылка). Так что это преобразует любую последовательность из одной или нескольких пустых строк в одну пустую строку.

Большинство приложений в наши дни либеральны в том, что они распознают как разделитель строк; они даже примут сочетание двух или более стилей разделителя в одном документе. С другой стороны, некоторые приложения активно конвертируют все разделители строк в один предпочтительный стиль. Но иногда вам нужно придерживаться одного определенного стиля; вот почему я захватил первый \R сопоставить и использовать его в качестве замены, а не произвольно \n,

Имейте в виду, что эти специальные escape-последовательности широко не поддерживаются в других разновидностях регулярных выражений. Они работают в последних версиях PHP, и \R Кажется, работает в Ruby 2.0, хотя я не могу найти ни одного документа, который упоминает об этом. Ruby 1.9.2 и 2.0 поддерживают \h escape-последовательность, но она соответствует шестнадцатеричной цифре ([0-9a-fA-F]), а не горизонтальные пробелы. В большинстве других ароматов, \R а также \h либо сгенерирует исключение, либо совпадет с литералом R а также h соответственно.

Answer 2

Это делает это:

#!/usr/bin/env perl
use strict;
use warnings;
my $string;
{
   local $/=undef;
   $string =<DATA>;
} 
print "Before:\n$string\n============";

$string=~s/\n{2,}/\n\n/g;
print "After:\n$string\n\nBye Bye!";

__DATA__
Line 1
Line 2






Line 9
Line 10

Line 12



Line 16


Line 19

Выход:

Before:
Line 1
Line 2






Line 9
Line 10

Line 12



Line 16


Line 19
============After:
Line 1
Line 2

Line 9
Line 10

Line 12

Line 16

Line 19

Perl также поддерживает \R класс персонажа для независимости от платформы. Смотрите эту ссылку ТАК. Ваше регулярное выражение будет тогда s/\R{2,}/\n\n/g;

Answer 3

@ бить ударил ногтем по голове. Я сделал быстрый тестовый пример:

in:

a

b




c

с этим кодом:

my $line = join '', <>;
$line =~ s{\n\n+}{\n\n}g;
print $line;

и он вернул ожидаемый результат:

a

b

c

Вы можете получить тот же результат, изменив разделитель записей (и избегая регулярных выражений):

{
    # change the Record Separator from "\n" to ""
    # treats multiple newlines as just one (perldoc perlvar)
    # local limits the change to the global $/ to this block
    local $/ = "";
    print <>;
}

Answer 4

Покажите полный пример. Что такое $string?

$ perl -E'my $s = qq{a\n\n\nb}; say "[$s]"; $s =~ s/\n\n+/\n\n/g; say "[$s]"'
[a


b]
[a

b]