Question

我有一个循环读取文件的每一行。在循环中我想要一个正则表达式来测试特定字符的行，如果该行包含该字符，我想删除整行。我是perl regex的新手，我似乎无法弄清楚如何将它们放在一起。

Answer 1

$ echo -e 'aa\nbb\nab\ncc' | 
  perl -e 'while (<>) { push @lines, $_ unless m/a/ } END { print @lines }'        
bb
cc

推送位于循环内，其中$_设置为每个后续行。除非给定的正则表达式与@lines匹配，否则它会附加数组$_。