如何使用Perl过滤属于特定域的电子邮件地址?

Joh*_*ohn 1 perl email-address

如何扫描包含由新行字符分隔的电子邮件地址的文件,并删除属于某个域的那些文件,例如hacker@bad.com.我想摆脱所有的电子邮件地址@bad.com

Jim*_*son 8

使用grep而不是Perl

grep -v '@bad\.com' inputfile > outputfile
Run Code Online (Sandbox Code Playgroud)

在Windows上

findstr /v "@bad\.com" inputfile > outputfile
Run Code Online (Sandbox Code Playgroud)