如何编写使用egrep查找字谜词的命令行？

Question

我正在考虑编写一个字谜命令。

例如，牙线。

我从egrep[floss]{5}开始。这里的问题是一个字母出现的次数可能不止一次。如何将此命令传输到另一个可以解决问题的命令？

非常感谢。

egrep[牙线]{5} | egrep -v

Answer 1

我会使用一个关键函数，也就是说，对于属于字谜词的单词返回相同的字符串，但对于不是字谜词的单词返回不同的字符串。

例如，您可以对字母进行排序。

perl -e'
   use v5.14;
   sub key { join "", sort { $a cmp $b } split //, $_[0] }
   my $word = shift;
   my $key = key( $word );
   while ( <> ) {
      chomp;
      say if key( $_ ) eq $key;
   }
' floss /usr/share/dict/words

输出：

floss

没有字谜。

但是提供

brief

你就会得到

brief
fiber