如何在搜索文本时打印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 个上下文词。