Perl 与黑名单比较并保存输出

我有两个文本文件，源列表和一个“黑名单”，它将与源列表进行比较（不区分大小写），如果检测到任何行与任何黑名单行一起，则创建一个“第三个列表”（输出），列出有问题的项目和行号（源文件）

源列表示例：

*cat
##dog
.pig
$qwer
|cup|
*coke*
^clock^

尝试一下：

grep -Finf blklst srclst

尝试一下：

grep -Finf blklst srclst

---

你试过什么？哪些部件导致您出现问题？我们不会为你写整个程序，你试过什么？哪些部件导致您出现问题？我们不会为你写整个程序。看起来不错！，虽然做了精确匹配。。因此，如果黑名单中有“dog”，而源代码中有dog20，它会忽略它（因为它不一样）@user:如果你的黑名单中没有任何正则表达式字符，比如

[

、

*

或

等，您可以去掉

-F

，它将进行部分匹配。看起来不错！尽管进行精确匹配。因此，如果黑名单中有“dog”，而源代码中有dog20，它将忽略它（因为它不同）@user:如果您的黑名单中没有任何正则字符，例如

[

、

*

或

等，您可以省略

-F

，它将进行部分匹配。