小编nee*_*mie的帖子

我希望在正则表达式匹配后删除该行,但我不确定如何编写删除Perl中的下一行 - 帮助？

while ( my $line = <FILE> ) {
if ($line =~ m/(regex)/i) {
# delete the next $line
}