删除带重读的行

Question

如何更改文本文件，使其只删除具有相同单词的行？

示例：

1. 蓝绿黄
2. 红橙棕色
3. 紫红色绿色

期望输出

1. 蓝绿黄
2. 红橙棕色

因为找到了绿色这个词，这一行就被删除了。

Answer 1

perl -ne 'my $p=1;@w=split;for(@w){$p=0 if $w{$_}}print if $p;$w{$_}=1 for(@w)' file

技巧:我使用数组@w表示当前行的单词，对前面行中遇到的所有单词使用散列%w。$p用于表示打印是必要的。

这将打印foo bar foo。一个没有，甚至更容易的版本，但它作为一个练习留给OP。:-)