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