如何在搜索文本时打印n个上下文单词

Question

通过类比，我多次使用grep和-C。但它打印了n行上下文。相反，我想要n个单词。任何使用perl / bash /任何其他常用工具的解决方案都是受欢迎的。

Answer 1

如果你可以啜饮整个输入：

perl -e'undef$/;
        $a=<>;
        print "$_\n" for $a=~m/(?:\b\S+\b\s+){5}your regexp(?:\s+\b\S+\b){5}/sg
      ' <input

- 5个上下文。