<div dir="ltr">perl -nle &#39;BEGIN {$pat = shift @ARGV} push @c, $_; shift @c if @c &gt; 3; $c = join &quot;\n&quot;, @c; print &quot;$c\n----\n&quot; if $c =~ /$pat/o&#39;<div><br></div><div>Usage:</div><div>  &lt;one-liner&gt; REGEXP FILE ...</div>
<div><br></div><div>This hardcodes 3 as the context value, if you want better options (for example, if you want to use substrings intsead of regexps for matching, -v, etc.) you probably need more than a single line.<br><br>
<div class="gmail_quote">On Mon, Nov 28, 2011 at 2:28 PM, Yossi Itzkovich <span dir="ltr">&lt;<a href="mailto:Yossi.Itzkovich@ecitele.com">Yossi.Itzkovich@ecitele.com</a>&gt;</span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div lang="EN-US" link="blue" vlink="purple"><div><p class="MsoNormal">Hi,<u></u><u></u></p><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">In this link : <a href="http://docstore.mik.ua/orelly/unix/upt/ch27_13.htm" target="_blank">http://docstore.mik.ua/orelly/unix/upt/ch27_13.htm</a><u></u><u></u></p>
<p class="MsoNormal">They mention cgrep that is implemented in Perl.<u></u><u></u></p><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">Does someone have such implementation ?<u></u><u></u></p><p class="MsoNormal">
Is there a one-liner  (&quot;real&quot; one liner) solution ?<u></u><u></u></p><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">Regards<u></u><u></u></p><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">
Yossi<u></u><u></u></p></div><p>
This e-mail message is intended for the recipient only and contains information which is CONFIDENTIAL and which may be proprietary to ECI Telecom. If you have received this transmission in error, please inform us by e-mail, phone or fax, and then delete the original and all copies thereof.
</p>
<br clear="both">
______________________________________________________________________<br>
This email has been scanned by the Symantec Email Security.cloud service.<br>
For more information please visit <a href="http://www.symanteccloud.com" target="_blank">http://www.symanteccloud.com</a><br>
______________________________________________________________________<br>
</div><br>_______________________________________________<br>
Perl mailing list<br>
<a href="mailto:Perl@perl.org.il">Perl@perl.org.il</a><br>
<a href="http://mail.perl.org.il/mailman/listinfo/perl" target="_blank">http://mail.perl.org.il/mailman/listinfo/perl</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br>Gaal Yahas &lt;<a href="mailto:gaal@forum2.org">gaal@forum2.org</a>&gt;<br>
<a href="http://gaal.livejournal.com/">http://gaal.livejournal.com/</a><br>
</div></div>