Question

怎么用perl删除包含字符串的整行

Answer 1

open IN, "a.txt" or die $!; #这是示范文件
while (<IN>){
chomp;
if ($_=~ /abc/) #匹配到字符串abc
{
$_=~ /$_//g;
}
}