如何在刪除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; 
}