Как удалить пустую строку после удаления нежелательной строки в Perl?

Question

Например, я хочу удалить ненужную строку с помощью bbbb

aaaa
bbbb
cccc
dddd

Для этого я использую следующее регулярное выражение perl.

$_ =~ s/bbbb//g;

Проблема в том, что остается пустая строка, например

aaaa

cccc
dddd

Мне нужно удалить ненужную текстовую строку, а также пустую строку.

Answer 1

Вы можете просто включить символ новой строки в свое регулярное выражение:

$_ =~ s/bbbb\n//g;

Это приведет к:

aaaa
cccc
dddd

Answer 2

Мне кажется, что если вы читаете эту строку за строкой, вы можете просто сделать свой цикл следующим образом:

my @foo = (
    "aaaa\n",
    "bbbb\n",
    "cccc\n",
    "dddd\n" );

foreach my $line ( @foo ) {
    next if ( $line =~ /^bbbb$/ );

    # now do something with a valid line;
}